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I. INTRODUCTION 


The influence of personnel management on the business organization has 
increased appreciably in recent years. Much of this increase can be attributed to the 
growing complexity of human resource management and the issues related to it. In the 
Republic of Korea(R.O.K), in order to strengthen the capability of combat under the 
limited national defense expenditure, it is imperative that personnel management be 
performed very efficiently. To achieve this goal, the high level managers of the military 
very often need a variety of data relevant to each person. Therefore, a modern 
database management system is needed for the R.O.K military personnel management 
system. 

The database management systems now in use permit greater flexibility in 
meeting information requirements, faster response times, and easier user access to 
stored data then earlier software systems. These benefits are achieved at the expense of 
larger capital and manpower investments, greater svstem complexity, lower processing 
efficiency, and long pay off periods. The value of such systems can not be determined 
Strictly on money, but also by the increase in the number of applications processed for 
noncomputer oriented users. Perhaps the most exciting development to occur from the 
introduction of such systems is the wide availability of easy to use query type 
languages which permit nonprogrammers to create, update, maintain, and extract 
information from their own files. 

In database development, it should be possible to query the database to satisfy 
the user’s requirements using application programs or the Database Management 
System( DBMS) itself. Because there are many types of data structures, models, designs 
etc., we should select one which depends on the problem or situation. The normal 
form concepts of relational database models will be applied to develop a database for 
the Korean military personnel management. Most experts agree that the relational 
data model supports data independence better than other models. 

This thesis will focus on a database design applying a Relational Model to R.O.K 
Army and Air Force personnel management. The actual sample data of R.O.K Army 
personnel will be used for implementing the sample program using dBASE III+. In 


Chapter [[, Background, we will address personnel management and give a general 
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overview of a database system. In Chapter III, general concert of the Relational 
Model will be discussed and in Chapter IV, data base design problems will be discussed 
in detail theoretically. In Chapter V, practical system analvsis and relational database 
design for Korean Army personnel management system will be discussed. In Chapter 
VI, we will discuss and show example for data base implementation and in Chapter 
VII. processing procedure to access the sample program in Appendix A will be shown. 
In Chapter VIII, conclusions will be drawn and recommendations for implementation 


will be offered. 
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il. BACKGROUND 


A. PERSONNEL MANAGEMENT 
1. Basic concept 

To meet organizational objectives it is necessary to continually acquire human 
resources; integrate employees into the organization; develop employee potential: and 
maintain the work force. Personnel management is an integral part of the broader field 
of management. Management has been defined as the process of accomplishing 
objectives through the efforts of other people within an organization. Thus, we can 
say that the role of personnel 1s critical for managing in general. [Ref. 1: p.17] 

In any military hierarchy there are many levels of command and control. Each level 
has its own duties and needs adequate number of people with respect to knowledge, 
capability, rank, skill etc. | 

2. Objectives 
Objectives are the starting point of the management process. They give the 
organization and its people a purpose and direction. Objectives serve to guide 
managers and employees in their efforts. The managers commonly perform these 
functions: 


(1) Planning - determining strategies and programs to help accomplish established 
objectives. 


(2) Organizing - grouping and assigning activities, staffing the organization, and 
delegating authority to carry out activities. 


(3) Pecies - encouraging human efforts and stimulating accomplishment of 
objectives. 


(4) Controlling - measuring accomplishments, So aawe results with planned 
objectives, determining Causes of deviations, and taking necessary corrective 
action. 

3. Korean Army and Air Force personnel management 
The Republic of Korea’s(R.O.K) Army and Air Force uses the general staff 
model which includes Personnel, Intelligence, Operations and Training, and 
Logistics(G1-G4). The R.O.K government spends a large percentage of the total 
government budget for national defense and the Department of National Defense 
spends a significant portion of the national defense expenditures for personnel. 
Personnel managers need data about the individual personnel capability and 


group personnel capability to analyze, to investigate, to plan. and to apply this data for 
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their organizations. Information about group personnel power can be derived by a 
collection of individual personnel power. It is important to increase individual and 
group personnel power in the personnel management field so that the right people 
move into the right jobs at the right times and under the right circumstances. 
[Ref. 2:79:75) 

In the military, information about individual personnel power can be derived 
from functions involving procurement, education and training, assignment, treatment, 
promotion and retirement. In order to reduce the national defense expenditure and 
increase the war_making capability, the Korean military needs a computerized 
management information system personnel management. Therefore, some important 
functions of the Army and Air Force’s Department of Personnel Management and 
other essential information are analyzed as system requirements. Information 
management by computer is very important for fast and accurate personnel 


management in the Korean mulitary. 


B. DATA VERSUS INFORMATION 

Data and information are meant to have two distinct meanings. Data may best 
be thought of as representing objective, external realities such as a flash of lightning in 
the sky, the expression on an emplovee’s face, or the number of widgets produced per 
day on the production line. Viewed in this way, data becomes pure fact. Data 1s 
knowledge for the sake of knowledge. When captured and stored, data is merely a 
record of these specific characteristics and events which can be reliably observed and 
which have sufficient impact to be taken note of. 

On the other hand, the term “information” may be restricted to mean interpreted 
data. Information should be thought of as the statement of the relationship of any 
given characteristic or event to specific goals and purposes. I[t is what is used to 
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control progress toward these goals and objectives. The term “information” will be 
reserved to mean knowledge for the sake of purposeful action. These are the kev 


definitions: 


Data is the record of any reliably observable characteristic or event in nature. 


Information is the desc Aeon of the ae of anv such characteristic or 
event to human goals and, ef. 3: p.124]. 


‘or business purposes | 


Figure 2.1 shows this relationship. 
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Figure 2.1 Data versus Information. 


C. GENERAL OVERVIEW OF A DATABASE SYSTEM 
1. Introduction . : 

The theory of data management predates computers. Early attempts at 
putting the theory into practice with rudimentary equipment were made in the 1940s 
and early 1950s. Computers were applied to the management of data in late 1950s and 
early 1960s. These computers were able to process data more quickly and in greater 
quantities than ever before, but the management of data (storage, manipulation and 
retrieval) was still quite unsophisticated. The architecture of computers at that time 
facilitated sequential processing of large volumes of data or massive computations 
made on small amount of data, one job at a time. In the middle 1960s, computer 
architecture was radically changed. A quantum increase in the size of computer 
memory and the introduction of operating svstemis made it possible for computers to 
do more than one job concurrently. This kind of processing called multi-programming, 
has continued right up to the present. 

Concurrent with multi-programming came the capacity to do what is called 
“on-line” or single transaction processing. Rather than process large volumes of data 
sequentially, it has become economically feasible to access specific information from 
computer stored files within seconds. In the late 1960s, more sophisticated methods of 
storing and retrieving data were incorporated into computer software (programs). 
These programs were the first data base management systems. The idea was just a 
little ahead of its time. Although computer memories had grown in size from 


thousands of positions to hundreds of thousands, they were not quite up to the task. 
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However, in the eariy and muddle 1970s, computer memory capacities were such that 
millions of characters could be stored in them. and siurage technology had increased 
the potential size even further. This increase has made possible the implementation of 
data management software. Since it has beccme technologically possible (and is at 
least approaching economic feasibility), the concept of data management is now 
emerging in the business community. Technological advances are making it possible to 
store data in a way that is radically different from most of the contemporarv methods 
now in use. This new technology is manifesting itself in both hardware and software. 
Hardware technology is allowing for large amounts of data (billions of characters) to 
be stored on-line. Software technology is supplying the mechanisms for the storing, 
updating and retrieving of that data. 

The mechanisms for manipulating and retrieving data (converting data to 
information) are known as Data Base Management Systems(DBMS). There are a 
number of software packages that provide these mechanisms. [Ref. 4: p.11] 

2. Data base system definitions 

Data base terminology and data base theory will be briefly presented in this 
section. To facilitate this discussion, it is necessary to set some common definitions. 
They are: 

(1) Data is.a group of non-random svmbols that represent quantities, actions, 
things, facts, concepts or instructions in a way suitable for communication and 
processing by humans or machines. Information is data that has been 
processed and presented, as described in B. in this chapter. 

(2) A record is a group of related data items. 

(3) A file (data set) is a collection of related records. A database is a collection of 
files logically related in such a way as to improve access to the data and 
minimize redundancy of data. 

(4) A data base management system is a set of programs that function to create 
and update the data base. retrieve data ae generate reports from the data 


base. A conceptual model (data model) is a representation of the information 
content of the data base. Figure 2.2 shows the composition of data base. 


3. What is DBMS? 

In simple terms, it is a computer software system that provides control, 
retrieval and storage of data contained in one or a combination of data files that are 
tied together by the DBMS and are more commonly referred to as a data base. 
Provided by the computer manufacturer or an independent software house, the 
software package is adaptable to all application systems. But DBMS can be truly 
understood by contrasting it with traditional practices. 


The ordinary systems development approach has been to organize data into 
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individual files, with the typical business data processing center developing around the 
computerization of separate applications such as payroll, inventory, and accounts 
receivable. What happens, however, is that the computer data files necessary to 
support these applications are fixed in their structure with preset formats frozen into 
the computer programs. The result has been that when a range of data values has 


grown to the point where, let us say, one more digit position is required, there may be 
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resource management, Naval 


is, 


no available physical space in the file record. The entire computerized data record 
must then either be expanded or redesigned, and this new design in turn leads to 


related changes tn a!l computer programs that use these computer data files. 
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Figure 2.3. Example of File Processing Systems(pre-database)?. 


James Martin, a well known author in the data base field, defined a data base 


as 


a collection of interrelated data_stored together without unnecessary redundancy 

to serve multiple applications. The data are stored so that they aré independent 

of the programs which use them. A common and controlled approach is used in 

adding new data and modifying and retrieving existing data. The data are 

Ret ease as to provide a foundation for Tuture application development. 
Phyo waee. 


Figure 2.3 and Figure 2.4 show the characteristics of database processing system. 


Jee : z . ° 
Kroenke, David M., Database Processing: Fundamentals, Design, Implementation, 
Science Research Associates INC., 1983, p.2 
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4. DBMS characteristics 
The current science clearly demands an environment that is quite different and 
features flexibility and expandability - inherent features in a data base managemen 
system. Specifically, DBMS possesses the following characteristics: 


(1) Data shareability. Through the structuring of data bases and control of the 
DBMS, data may be shared among many independent computer applications. 
Since some applications mav not be planned until well after the completion 
and installation of other BORNE ANON hat use the same data bases. computer 

rograms must have the abilitv to use commonly available data. Provision 1s 
herefore made for multiple uses of the same data, but control is exercised 
over access and over interfaces between independent programs. 
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Figure 2.4 Example of Data Base Processing System). 


(2) Data independence. A seenungly trivial application design change or database 
expansion can have an undesirable cost impact. Elence, it 1s important to 
avoid dependence of computer Rigeiais on a fixed phvsical data base. 

BMS permits the addition and deletion of the data base, data fields or data 
records without modifying existing computer programs. 


(3) Control of data redundancy. poneguen of similar data as more and_ more 
data bases are. integrated. Wlule not elimimmating all redundancy, DBMS 
avoids much of this by structuring common data needs is terms of so-called 

logical data relationships that avoid duplicate data values. 


3Kroenke, David M., Database Processing: Fundamentals, Design, Implementation, 
‘ Science Research Associates INC., 1983, p.< 
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Data integrity and security. In as many users share the same data files, 

BMS maintains control’ over the integrity of the data base through 
synchronization of updates, insuring eu of data, examining the 
prevagation of changes to data item values or to dependent data items. and 
maintaining an audit trial of interfaces between Diets and data. Data 
security méasures must also be applied to all DBMS structures, recognizing 
that accessibility to data should be a function.of the sensitivity of the data, the 
processing procedures, and the authority of the user. Timing intervals for 
duplicating all data bases must be specified and provision made for on- 
promise as well as off-promise storage for back up purposes. 


Database technology allows an organization’s data to be processed as an 


integrated whole. It reduces artificiality imposed by separate files for separate 


applications and permits users to access data more naturally. Data integration offers 


several important advantages: 


More information from the same amount of data 

New reports and one-a-kind requests more easily implemented 
Elimination of data duplication 

Program) Data independence 

Better data ‘management 

Affordable.sophisticated programming 


Representation of record relationships 


On the other hand, database processing has a few disadvantages: 


Expensive database management svstem 
Higher operating cost 
Complexity 
Recovery is more difficult 
Increased vulnerability to failure 
5. Levels of abstraction ina DBMS 


A fairly standard viewpoint regarding levels of abstraction is shown in Figure 


2.5. [Ref. 6: p.3] There we see a single database, which may be one of many databases 


using the same DBMS software, at three different levels of abstraction. The 


conceptual database is an abstract representation of the physical database (or, 


equivalently, we mav say the physical database is an implementation of the conceptual 


database), and the views are each abstraction of portions of the conceptual database. 


The difference in the level of abstraction between views and the conceptual database is 


generally not great. 


The term scheme is used to refer to plans, so we talk of a conceptual scheme 


as the plan for the conceptual database, and we call the physical database plan a 


physical scheme. The plan for a view is often referred to simply as a subscheme. 


Le 
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Figure 2.5 Levels of Abstraction in A Database System?. 


As we have said, the conceptual scheme is an abstraction of the real world 
pertinent to an organization like enterprise. A DBMS provides a data definition 
language to specify the conceptual scheme and, most likely, some of the details 
regarding the implementation of the conceptual scheme by the physical scheme. The 
data definition language is a high-level language, enabling one to describe the 
conceptual scheme in terms of a “data model”. 

b. Views 

A view or subscheme 1s an abstract model of a portion of the conceptual 
database or conceptual scheme. For example, an airline mav provide a computerized 
reservation service, consisting of data and a collection of programs that deal with 
flights and passengers. These programs, and the people who use them, do not need to 
know about personnel files or the assignment of pilots to flights. The dispatcher may 
need to know about flights, aircraft, and aspects of the personnel files (e.g., which 
pilots are qualified to fly a 747), but does not need to know about personnel salaries or 


the passengers booked on a flight. 


1920 “Ullman, Jeffery D., Principles of database system, Computer Science Press INC., 
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c. The physical database 
At the lowest level of abstraction witn which we deal. there is a physical 
database. The physical database resides permanently on secondary storage devices, 
such as disks and tapes. We may view the physical database itself at several levels of 
abstraction, ranging from that of records and files in a programming language such as 
PL/I, perhaps through the level of logical records, as supported by the operating 
systeni underlying the DBMS, down to the level of bits and physical addresses on 
Storage devices. 
6. The objectives of database system organizations 
A database system should be the repository of the data needed for an 
organization's data processing. That data should be accurate, private, and protected 
from damage. The system should be designed so that diverse applications with 
different data/information requirements can employ the data. Different end-users have 
different views of data which should be derived from a common overall data structure. 
In order to achieve these user requirements and others, the following objectives are 
considered by database system designers. [Ref. 7: p.34] 
(1) The database_is THE FOUNDATION OF FUTURE APPLICATION 
DEVELOPMENT. |t should make application development easier, cheaper, 
faster, and more flexible. 


(2) THE DATA CAN HAVE MULTIPLE USES. Different users who pereame 
the same data differently can employ them in different ways. 


(3) CLARITY. Users can easily determine and understand what data are 
available to them. 


(4) EASE OF USE. Users can gain access to data in a simple fashion. 
Complexity is hidden from the users by the DBMS. 


(5) ELEXIBLE USAGE. The data can be used or searched in several waysmim 
different access paths. 


(6) CHANGE IS EASY. The database can grow and change without interfering 
with established procedures for using the data. 


(7) LOW COST. The cost of storing and using data, and the cost of making 
changes, must be as small as possible. 


(8) LESS DATA PROLIFERATION. New peel needs may be met with 
existing data rather than creating new files, thus avoiding the excessive 
proliferation in today’s tape libraries. 


(9) PERFORMANCE. Data requests can be satisfied with speed suitable to the 
usage of the data. 


(10) PRIVACY. Unauthorized access to the data will be prevented. The same 
data should be restricted in different ways from different uses. 


(11) AVAILABILITY. Data should be available to users at the time when thev 
Nee aeiinen. 
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(12) RELIABILITY. Almost all information/data for personnel management 1S 
very important to both individual personnel (e.g. for promotion, for new 
assignment, etc.) and grou personne The information which is derived from 
database processing met e very reliable. 

D. DATABASE MODEL | 

A data model is a collection of data structures together with a collection of 
Operations that manipulate the data structures for the purpose of storing, querving, or 
processing the structure contents. A data model may also include the integrity 
constraints defined over the data structures, or it may include access control facilities 
of mechanisms for defining various external user views of the database. Some data 
models provide physical storage structures and physical access methods as part of the 
data model, but usually a data model is limited to the data structures and operations 
that are available to an end user and may be accessed from an application program. 
There are two reasons for studying database models. First, they are an important 
database design tool. Database models can be used for both logical and physical 
database design - much as flow charts or pseudocode are used for program design. 
Second, database models are used to categorize DBMS products. In this section, we 
will discuss the components of a database model and survey six important models. 

1. Component of database model 

Database models have two major components. The Data Definition 

Language (DDL) is a vocabulary for defining the structure of the database. The DDL 
must include terms for defining records, fields, keys, and relationships. In addition the 
DDL should provide a facility for expressing database constraints. Data Manipulation 
Language (DML) is the second component of a database model. The DML is a 
vocabulary for describing the processing of the database. Facilities are needed to 
retrieve and change database data. There are two types of DML, procedural DML 
and nonprocedural DML. Procedural DML is a language for describing actions to be 
performed on the database. Procedural DML obtains a described result by specifying 
Operations to be performed. For procedural DML, facilities are needed to define the 
data to be operated on and to express the actions to be taken. Both data items and 
relationships can be accessed or modified. Nonprocedural DML is a language for 
describing the data that is wanted without describing how to obtain it. 

2. Prominent database models. 

Figure 2.6 portrays six common and useful database models. Models on the 


left-hand side of this figure tend to be oriented to humans and human meaning, 


as 


whereas those on the right-hand side are more oriented toward machines and machine 


specifications. 
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Figure 2.6 Relationship of Six Important Data Models. 


a. Relational data model 
The relational database model is near the nudpoint of the human/machine 
continuum in Figure 2.9, because it has both logical and physical characteristics. The 
relational modet is logical in that data are represented in a format familiar to humans: 
the relational model is unconcerned with how the data are represented in computer 
files. On the other hand, this is more physical than SDM(semantic data model) or the 
E_R(entity relationship) model. Database that have been designed according to the 
relational need not be transformed into some other format before implementation. 
Thus the relational model can be used for both logical and physical database design. A 
relation is simply a flat file. The rows of the relation are the file records. Rows are 
sometimes called tuples of the relation. The field of the relation (in the columns) are 
somietimes called the attributes of the relation. The significance of the relational model 
is not that data are arranged in relations but that relationships are concerned to be 
implied by data values. The principle advantage of carrying relationships in data 1s 
flexibility. Relationships need not be predefined. [Ref. 7: p.196] 
b. Semantic data model 
The word semantic means meaning. The semantic data model provides a 


vocabulary for expressing the meaning as well as the structure of database data. As 


26 


such, SDM 1s useful for icgical database design and documentation. SDM provides a 
precise documentation and ccmmunication medium for database users. In particular, a 
new user of a large and con:plex database should find its SDM schema of use in 
determining what information is contained in the database. Also, SDM provides the 
basis for a variety of high level semantics-based user interfaces to a database. SDM 
has been designed to satisfv a number of criteria that are not met by contemporary 
database models. The chief advantage of SDM is that it provides a facility for 
expressing meaning about the data in the database. Another advantage of SDM is 
that it allows data to be described in context. Users see data from different 
perspectives. They see it relative to their field of operation. SDM ailows relative data 
definition. A third advantage of SDM is that constraints on database data can be 
defined. For example, if a given item is not changeable. SDM allows this fact to be 
stated. With other data models, such constraints are not part of the schema 
description and are documented separately. SDM is like a pseudocode. But.instead of 
describing the structure of programs as pseudocode does,SDM describes the structure 
of data. Like pseudocode. SDM has certain structures and rules. and within those 
structures and rules, the designer has a good deal of latitude and flexibility. 
Heer. 7: p.193] 
c. Entity - Relationship model 

The entitv- relationship model(E-R model) is primarily a logical database 
model, although it has some aspects of a physical model as well. As its name implies, 
the E-R model is explicit about relationship. Unlike SDM, in the E-R model both 
entities and relationships are considered to be different constructs. Entities are 
grouped into entity sets, and relationships are grouped into relationship sets. An 
entity-relationship diagram is a graphical portrayal of entities and their relationships. 
It is useful to summarize the information in a design. I[t supports the representation of 
more general relationships. [Ref. 7: p.194] 

d. CODASYL DBTG model 

The CODASYL DBTG(conference on Data System Languages, Database 
Task Group) data model was developed by the same group that formulated COBOL 
during the late 1960s and is the oldest of the data models. The DBTG model is a 
physical database model. There are constructs for defining physical characteristics of 
data, for describing where data should be located, for instructing the DBMS regarding 


what data structures to use for implementing record relationships, and other similar 
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physical characteristics. A DBTG schema is the collection of all records and 
relationships. AA subschema is a subset and reordering of records and relationships in 
the schema. Unlike the relational model, relationships become fixed when they are 
defined in the schema. Several reasons account for the lukewarm response that the 
CODASYL model has received, including the fact that it has a decidedly COBOL 
flavor to it. Finallv,although most of the core concepts of the model are defined and 
agreed upon, there. are many not-agreed-on variants of the core concepts. These 
Variants create confusion and lead to a dilemma. [Ref. 7: p.197] 
e. DBMS-specific models 

There are over one hundred different commercial DBMS products. The 
DBMS are sometimes categorized in terms of their underlving data model. A DBMS 1s 
considered a relational system if it conforms, in essence, to the relational data model. 
Alternately, a DBMS is considered to be a CODASYL system if it conforms, in 
essence, to the CODASYL DBTG data model. A third categorv of DBMS is other. If 
a DBMS does not conform to one of the above two data models, then it has its own, 
unique data model. There are many systems that fall into the other category. 
[Ref 72 pales) 

fi. ANSI{X3/SPARC data model 

The ANSI/X3/SPARC(American National Standards Institute / Committee 
AX3 / Standards Planning and Requirements (sub)-Committee) data model does support 
a variety of different data models in Figure 2.6. This model is a model for DBMS 
design rather than for database design. This have the external, conceptual, and 
internal schema. [Ref. 7: p.198] 
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lil, RELATIONAL MODEL 


A. INTRODUCTION 

A relation is a mathematical term for a two-dimensional table. it is characterised 
by rows and columns, each entry there being a data item value. The reason for calling 
this a relation rather than a matrix lies in the lack of homogeneity in its entries - the 
entries are homogeneous in the columns but not in the rows. A relational data base 
consists of such relations, which can be stored on a physical device in a variety of 
ways. 

From the late 1960s a number of people toyed with the idea of constructing data 
base with relations as the basic building blocks. Most of these early systems were 
restricted to relations with only two columns, and all of them were special-purpose 
models incapable of meeting general data-processing requirements. In 1970 E.F. Codd 
of IBM proposed a model for a generalised relational Data Base System chieflv to 
provide data independence and data consistency, which are difficult to achieve in the 
formatted Data Base Systems. The model was subsequently improved and expanded 
by Codd and is now regarded by many as the future of all Data Base Systems. 
Needless to say, the term relational data base or relational model is nowadays generally 
indentified with Codd’s model alone. 

A basic feature of the relational model is its simplicity. A relation is a table of 
data and it may consist of only one row and one column, thus providing the simplest 
possible data structure which can be used as the common denominator of all data 
structures. It simplifies the design of the schema since there is only one logical data 
structure-the relation-to consider, without having to worry about the construction of 
the right data structures to represent complex data relationships. Furthermore the 
relational model provides an unparalleled freedom to the application programer by 
enabling him to access any data item value in the data base directly, the access 
mechanism being associative or content addressable since a data item is accessed 
directly by its value rather than by its relative position or by a pointer. 

The concepts of the relational model are founded on mathematics, and all the 
terms used are mathematical. This has the effect of scaring off most people who would 


normally be interested in a data base. 
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In this chapter we shall keep the involvement with mathematics to a minimum. 
All concepts wiil be defined in non-mathematical terms in a simplified manner, 
sacrificing in the process some of the mathematical rigour which is really unnecessary 
for the understanding of the model. we shall also give the data-processing equivalent 


of the commonly used relational concepts. 


B. BASIC CONCEPT 
1. Terminology 

A relation is simply a two-dimensional table that has several properties. First, 
the entries in the table are single-valued; neither repeating groups nor arrays are 
allowed. Second, the entries in any column are all of the same kind. For example, one 
column may contain person numbers, and another ages. Further, each column has a 
unique name and the other of the columns is immaterial. Columns of a relation are 
referred to as attributes. Finally, no two rows in the table are identical and the order 


of the rows is insignificant. Figure 3.1 portrays a relation. 





Figure 3.1 Korean Military Person Relation. 


Each row of the relation is known as a tuple. If the relation has n columns or 
n attributes is said to be of degree n. The relation in Figure 3.1 is of degree 4, and 
each row 1s a 4-tuple. . 

Each attribute has a domain, which is the set of values that the attribute can 
have. For example, the domain of the Rank attribute in Figure 3.1 is the three values, 
Capt, Maj} and Col. The domain of the Age attribute 1s all positive integers less 


_then,say, 100. 
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A relation of degree n has n domains, not all of which need be unique. For 
example, the relation in Figure 3.2 has age and age of spouse attributes. The domains 
of the two attributes are the samme, integers from 1 to 100. To differentiate between | 
attributes that have the same domain, each is given a unique attribute name. The 
attribute names for the relation in Figure 3.2 are Name, Position, ‘Spouse- name, Nee 


Spouse-age, and Unit. 


Eun K. LEE 


ki O. Sin 


Hye S. Lee 


Myen J. Cho 





/ Figure 3.2 Korean Air Force Pilot Relation. 


Figures 3.1 and 3.2 are examples, or occurences. The generalized format, 
KOREAN MILITARY PERSON (Name, MSN, Rank, Age), is called the relation 
Structure, and is what most people mean when they use the term relation. If we add 
constraints on allowable data values to the relation structure, we then have a relational 
schema. [Ref. 7: pp243,245] 

As mentioned earlier, a relation is a mathematical term used to define a 
special kind of table. Each column is called a domain containing all the values of an 
attribute, and each row a tuple. The word tuple is taken from the description of 
groups, such as quintuple and sextuple. Thus a group of n elements is an n-tuple. In 
a relation of n domains, each tuple, that is, each row, is an n-tuple. The number of 
rows or tuples in a relation is its cardinality, and the number of columms 1s its degree. 
The individual elements in a relation are attributes values. If we consider an m * n 
relation ( m rows and n columns ), we have. 

a relation of degree n and cardinality m, that is, 

a relation containing n domains and n tuples, each 


tuple being an n-tuple. There are m X n attribute 
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vaiues, each tuple having n columns orn attribute 
Values. 
A relation of degree 1 is called unary, degree 2 binary, degree 3 ternary and 
degree n n-ary relation. The characteristics of a relation are as follows. 

(1) All entries in a domain are of the same kind. 

(2) Domains are assigned distinct names called attribute-names. 

(3) The ordering of the domains is immaterial. 

(4) Each tuple is distinct, that 1s, duplicate tuples are not allowed. 

(5) The ordering of the tuples is immaterial. [Ref. 8: p.132] 


to 


Attribute and domain names 
A domain ,unlike a tuple, can be duplicate. A domain name is the common 
name for identical domains whereas an attribute name is the unique name for an 
individual domain. Attribute names for identical domains are constructed from the 
common domain name by attaching suitable prefixes to it. Consider, for instance, a 
relation called HIERARCHY containing two identical domains - one for the superior 
unit number and the other for subordinate unit number - both holding the same type 
of information, that is, unit number codes. If we assume a common domain name, 
UNIT, then we can construct two attribute names, SUP-UNIT for the superior unit 
numbers, and SUB-UNIT for the subordinate unit numbers. Unit code, for instance, 1s 
DIV for division. IRE for infantry regiment, ARE for artillery regiment. IBA for 
infantry battalion, ABA for artillery battalion etc. Using QUANTITY as the attribute 
name for the third domain which contains the numbers of a subordinate unit numbers 
present in its superior unit number, we can represent the triplet as shown in Figure 3.5. 

From the mathematical point of view, a domain can be simple or non simple, 
a simple domain containing a single attribute and a nonsimple domain containing a 
repeating group or a multiple of attributes. Therefore the name of a simple domain 
can be identical with that of its attribute. A nonsimple domain can be broken down 
into simple domains, giving each a unique attribute name as we have done in the 
example above. 

3. Keys and attributes 

A tuple is identified by its key, constructed from a combination of one or 
more attributes so that no attribute there is redundant. A tuple can have more than 
one possible key, each of which can uniquely identify the tuple. All these possible kevs 


are known as the candidate keys. One of these keys is arbitrarily selected to identify 
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HIERARCHY ( SUP_UNIT SUB_UNIT QUANTITY ) 
DIV 102 IRE 572 - ° 6 
DIV 104 ARE 337 


3 
ARE oo ABA 325 5 
5 


HCE eon 2 TPB AG ES 5 





Figure 3.3 A Relation of Degree 3. 


the tuple and this key is known as the primary key. For example, consider a tuple with 
the following attributes 

Division Code, Regiment Code, Regiment Commander No., 

No. of people. 

If we assume that every regiment has its own separate commander, then this 
tuple can be uniquely identified either by Division Code + Regiment Code , or 
Division Code + Regiment Commander No. These then are two candidate keys, one 
of which can be selected as the primary key. Since a key must not contain redundant 
attributes, the Regiment Code and Regiment Commander No. can not appear in the 
same key, because the Regiment Conimander No. implicitly defines Regiment Code. 

If a tuple has attributes whose combination is the primary key in another 
relation, then this combination is called a foreign key. For instance Division Code can 
be a foreign key. An attribute that forms a part of a candidate key is a prime 
attribute of the tuple. The other attributes are nonprime. [In the example given above, 
the Division Code, Regiment Code and Regiment Commander No. are prime 
attributes, and the No. of people is a nonprime attribute. 

4. Comparison with standard data-processing concepts 

In data-processing terms we may approximate a relation to the occurrences of 
a record type, a tuple to a record occurrence, and an attribute to a data item, a domain 
being the collection of all values for a single data item. Degree is the number of data 
items in the record and cardinality is the total number of records in the record type. A 
unary record relation is a record type consisting of a single data item; a binary relation 


is a record type of two data items; and ‘so on. 
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However, there are some differences between record types and relations in 
third normal form, a record type being equivalent to an unnormalised relation where 
repeating groups are permitted. Normalised form will be discussed in Chapter IV. The 
ordering of the data items-that is, their relative positions-is fixed in a record type and 
cannot be altered, but the domains of a relations are independent of their relative 
positions since they are addressed individually by their attribute names. In a relation, 
the ordering of tuples is also unimportant because each of them is accessed directly, 
but this is not generally true for the records of a record type, unless they are 
specifically stored for direct retrieval. These access advantages follow directly from the 
content-addressable accessing concept used in relations as mentioned earlier. Finally 
bv definition a relation can have a duplicate tuple, but there is no such conceptual 
restriction on the existence of a duplicate record in a record type. These discussions 


are summerized in Figures 3.4 and 3.5. [Ref. 8: p.134] 
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Relational Terms Data-processing Terms 


Relation All the occurence of a recorde type 
Tuple Record 

Attribute Data item 

Domain All the values of a data item 
Degree Number of data items in the 


record type 


Gardina li ty Total number of records in the 


record type 





Figure 3.4 Equivalence of relational terms with data-processing concepts>. 


“Deen S. M.. Fund Is « 
_INC. RG niin ata Nee Tees 3 4 Database Systems, p.134,[layden book company 


34 





Repeating group Not allowed in | Allowed 


normalised relations 


Odering of Immaterial Important 
domains or data 
items 

Ordering of Immaterial Important 
tuples or records 
Duplicate tuple Not Allowed Immaterial 


or record 





Figure 3.5 Difference between relation and data-processing concepts°. 


C. EXPRESSING RELATIONSHIPS WITH THE RELATIONAL MODEL 

When we design a database, we may need to specify the logical relationships that 
will exist among data base records. When we consider the user’s requirement, we 
should realize that there are three fundamental types of record relationships. These 
types are: tree( or hierarchy ), stmple network, and complex network. 

Many relations which are based on those three tvpes of record relationships will 
be discussed in this section. First of all, each type of relationship ts: 

(1) Trees or hierarchies. A tree is a collection of records and one-to-many 
relationships among records. According to standard terminology, the records 
are called nodes, and the relationship between the records are called branches. 
Micemoedesat tie top ol the tree is called thereot. Every node ol a tree has a 
parent-the node immediately above it. Figure 3.6 shows a tree relationship. 

(2) Simple Networks. A simple network is also a collection of records and one- 


to-many relationships among records. In a simple network, a record may. 
have more.than one parent, as long as the parents are different types ol 


6Deen S. M., Fundamentals a Database Systems, p.134,Hayden book company 
INC.,Rochelle park, New Jersey 1973 
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Tactical Fighter Wing 


| ist Tactical Fighter SQ 2nd Tactical Fighter SQ|... 





... | pilot 10 


Figure 3.6 Example of Tree Relationship. 


records. Figure 3.7 shows a simple network relationship. 


(3) Complex Networks. A complex network is also a collection of records and 

relationships. The relationships are_manv-to-many instead of one-to-many. 

Figure 3.8 shows Complex Network Relationship. 

1. Tree or hierarchical relationships 

The tree which is illustrated in Figure 3.6 can be modeled by constructing two 
relations as in Figure 3.9. 

Relation ML contains the Name, Mission, Location attributes, and relation 
PILOT contains the Name and Pilot attributes. Name is primary key of the ML 
relation, and Name and Pilot together are the primary key of the PILOT relation. This 
relational representation is useful when we need a information about pilots who work 


In specific Wing or squadron. 


2. Simple Network Relatiouships 
Consider the undergraduate education/squadron/pilots relationship as it is 
shown in Figure 3.7. As we mentioned earlier, Figure 3.7 represents a simple network 
relationship. In Figure 3.10, the following relation structure will represent this 
network: 
EDUCATION ( School, Major, Grad_year ) 
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EDUCATION SQUADRON 


Air Force 2nd Air Force 


Academy Academy 


; 


-PILOTS 





Figure 3.7 Example of Simple Network Relationship. 
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Figure 3.8 Example of Complex Network Relationship. 


SQUADRON (Name, Num_pilot ) 


ay 


2nd AFB]; Kil D. Hong 





* AFB: Air Force Base 2nd AFB] Jung G. Lee 


* TFW: Tactical Fighter Wing 3rd AFB]|] Tae S. Jeong 
* RFW: Rescue Flying Wing ~ 3rd AFB; Kyo M. Kang 


* ATW: Air Trasfortation Wing 


a. Mission and Location b. PILOT retatrvon 


(ML) relation 


Figure 3.9 Relational Representation of Tree Relationship. 


Eine t (Mil_serv_num, Name, School, Major, Squadron ) 

As it is shown in Figure 3.10, there are no special constructs to represent the 
relationship. 

Instead, relationships can be determined by pairing equal values of attributes. 
These relations are very useful when we need some information about pilots who 
graduate from a specific school and study specific subjects. For example, let’s assume 
that we want to know how many pilots work with Jae B. Park. To respond to this 
query, we can find PILOT tuples for Jae B. Park. Next, we can find the number of 
pilots from 333rd SQ tuple in the SQUADRON relation. 

3. Complex Network Relationships 

The relational model representation of a complex relationship is similar to 

that of simple network relationship. Figure 3.11 is based on Figure 3.8. A 


straightfoward way of representing this structure is to define three relations: one for 


38 


a 
, , . 


EDUCATION Relation 


School — Major G_year 


AF Academy Mechanical Eng. 1980 
Air College Management ere 


SQUADRON Relation 









Name N_ pilot 


eeord SQ 


meoth SQ 





PILOT Relation 


MSN Name School Major Squadron 


65320 Gil Hong |2nd AF 
Academy 


Figure 3.10 Relational representation of Simple Network Relationships. 









pilots, one for military training courses, and one for the relationship between pilots and 
military training courses. This last relation is an intersection record. The following 


relatton structure will represent this network: 
PILOTS ( Mil_serv_num, Name, Rank ) 


49 


MTC ( Cour_name, Year, Num-student ) 

PILOT_MTC ( Mil_serv_num, Ccur_name )}. 

It is very easy to find someone’s career by using these relations. For example, 
let's consider the question “What kinds of military training courses has Capt. Jae Park 
taken so far?”. According to Figure 3.11, he took AGOC and CADF course. 


Name Rank Cname Year No_Student 


MSN 

jis Le 

65320 x 
Se 








CADT 


PILOTS KRelataon MTC(military training - 


course) Relation 


MSN Cname 


PILOTS_MTC Relation 











figure 3.11 Relational representation of Complex Network Relationship. 
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To manipulate data in the catabase bv the application program we need a 
Data Manipulation Language or DML- one for each host janguage. The DML acts as 
an interface language with the database. Its major functions are 
® to select a record from the database 
® to represent it to the application program 
e to add new records and relationships in the database 
e to change existing records and relationships in the database 
® to remove existing records and relationships from the database 
ees: p. 52}. 
As it is discussed in Figure 3.11, understanding of representations of three 
relationships are very important to get flexible and useful information in a personnel 
management system. Each relationship is useful for individual required characteristic 


of query. An example is shown in Figure 3.11. 


D. DATA MANIPULATION LANGUAGES | 

The notation for expressing queries is usually the most significant part of a data 
manipulation language. The nonquery aspects of a relational data manipulation 
language, or “query language,” are often straightfoward, being concerned with the 
insertion, deletion and modification of the tuples. On the other hand, queries, which in 
the most general case are arbitrarv functions applied to relations, often use a rich, high 
level language for their expression. 

Query languages for the relational model break down into two broad classes: 


(1) Algebraic languages, where queries are expressed by applying specialized 
operators to relations, and 


(2) Predicate calculus languages, where queries describe a desired set of tuples by 
specifying a predicate the tuples must satisfy. [Ref. 6: p.104] 


1. Relational algebra 

Relational algebra operates one or more relations and produces a new relation 
as the result. The operations are expressed in a system of notation and they can be 
used to retrieve information from one or more relations or to update a tuple of a 
relation. We shall describe here six operations of which the first three- union, 
intersection and difference are traditional set operations; the other three - projection, 
join and division - are less common. Relations can be manipulated using the 
Opertators +, -, etc., in high school algebra to achieve a desired result. Relation 


algebra is hard to use, partly because it is procedural. That is, when using relational 
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algebra we must know not only what we want, but also how to get it. In high school 
aigebra, variables represented numbers, and operations like +.-, X, and/ operated on 
numeric quantities. For relational algebra, however, the variables are relations, and the 
operations manipulate relations to form new relations. For example, the operation + ( 
Or union ) combines the tuples of one relation with the tuples of another relation. 
[Ref. 7: p.255] 
a. Union 
The union of set A with set B, denoted as A U B, is the set of all objects 
without repetition. We only apply the union operator to relations of the same number 
of attribute, so all tuples in the result have the same number of attribute. Each 
attribute should have same domain. This can be used to insert a new tuple to a 
relation. 
b. Intersection 
The intersection of set a with set B, denoted as A f B, is the set of all 
objects belonging to both A and B. So the intersection of two relations is a third 
relation containing common tuples. Again, the relations must be union compatible. 
This can be used to find a duplicate tuple between two relations. 
c. Difference 
The difference of set b from set a, denoted as A - B, is the set of all objects 
belonging to A but not to B. That is, the difference of two relations is a third relation 
containing tuples which occur in the first relation but not in the second. The relations 
must be union compatible. This can be applied to delete a tuple. To amend a tuple, 
Wwe must first delete it with a difference operation and then insert the amended tuple bv 
a union operation. 
ad. Projection 
Projection is the selection of one or more named domains from a relation in 
a specified order, followed by the elimination of duplicate tuples from the resulting 
relation. ( In fact in all operations used in relational algebra, duplicate tuples are 
removed since thev are not allowed in a relation.) That is, the result of the projection 
is a new relation having the selected attributes. In other words, projection picks 
columns out of a relation. Since the result of projection is a relation, and since 
relations can not contain duplicate tuples, the redundant tuple is eliminated. 
Projection can also be used to change the order of attributes in a relation. We shall 
use the notation R [| ABC ] to denote the projection of domains A, B and C in that 


order from relation R. 
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e. Join 

The join operation is a combination of the product, and projection 
operations. The join of relation A with relation B produces a relation R that consists 
of all the possible tuples obtained bv concatenating each tuple of A with all tuples of B 
that have the same value under the common domain. A tuple of an original relation is 
excluded from the resultant relation if its value under the common domain is not 
shared by a tuple of the other relation. The resultant relation contains all the domains 
of both the original relations, the common domain appearing only once. Let’s assume 
there are two relations A ( SQUADRON PILOT ) and B ( PILOT MITC ) as given 
below. 


A( SQUADRON PILOT) BOE TL er MTC ) 
Zo oO Jae B. Park Jae B. Park AGOC 
30550 Dong I. Lee Jae B. Park CADT 
506809 Jang. K-) Caro = Jang K. Cho Te 
coo) Jae S. Jeong Hwan S. Lee ABC 

Maeir> join R is . 
R ( SQUADRON Peo MIC 
Zecioe Jae B. Park AGOC 
Zool ° Jae B. Park CADT 
SOCSO sang K. Cho Por 


For operational convenience, in all subsequent join operations, we shall 
assume the common domain to be the rightmost domain of the first relation and the 
leftmost domain of the second relation as it is shown above; this can be ensured if 
necessary by a suitable projection operation. Join in conjunction with the projection 
Operation provides a verv useful tool for the manipulation of relations. 

f. Product 

The product of two relations ( cartesian product ) is the concatenation of 
everv tuple of one relation with every tuple of a second relation. The product of 
relation A ( having m tuples ) and relation B ( having n tuples ) has m times n tuples. 
The product is denoted A X B orA times B. [Ref. 7: p.257] 

g. Division 

We may divide a binary relation by a unary relation if the domain of the 

unarv relation is also a domain of the binary relation. The result of such a division is a 


unary relation containing the uncommon domain of the binary relation is selected for 
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the resultant relation. if its associated entries In tne common comain contain all tne 
values of the divisor domain. Consider a binarv relation DT and three unary relations 
DI, DJ and DK as given below. 

DT ( S# P# ) DI ( P#) DJ (PH) DK ( P#) 


St Pl eer =e 1. Pl 
Sia) BZ P2 P2 
Si BS P3 
os P4 
SZ Pl 
SZ P3 
SZ P4 
a Ea 
So P2 

Denoting division by’(slash) and the resultant relation bv R, we have 

DT/DI=R( S#) DT/DJ=R( S#) DT/DK=R( S#) 

Si So Sal 
$2 $3 
So 


For operational convenience in division, as in join, we shall assume the 
rightmost (that is, the second) domain of the dividend as the common domain. All 
algebraic operations will be evaluated from right to left giving precedent to projection 
Operation over join and division, the priority over projection being indicated by 
ordinarv brackets( ). 

Relational algebra can be used for a procedural language. It is extremely 
powerful and is device independent. since the queries are based on the values of the 
data items rather than their positions. However, the construction of an algebraic 
expression for a query is very tedious, even though the technique can quickly be learnt. 
In addition, the nature of a query is not obvious from the algebraic expression unless it 
is patiently worked out. These tend to increase the chances of errors in the queries. 
Relational calculus is designed to improve this situation. [{Ref. 8: p.150] 

2. Relational calculus 
Relational calculus is one of the strategies for manipulating relations. I[t 1s a 
nonprocedural language for expressing What we want without expressing how to get it. 


In relational algebra the user specifies the detailed procedures for extracting 
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information. whereas in relational calculus the user defines wnat he wants, ieaving the 
system to work out the procedure required. The expression of a relational calcuius has 
two parts, a target list which consists of a list of the wanted elements separated by 
commas, and a logical expression, called a predicate or qualification, which defines the 
wanted elements in terms of the relations from which they are to be extracted. It is 
written in the form 
Ramage (itstawepredicate 
to be interpreted as: extract the elements in the target list such that ( or where) the 


predicate is true. [Ref. 8: p.152] 
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[V. RELATIONAL DATABASE DESIGN 


A. INTRODUCTION 
The combination of DBMS software, applications software, database 

implementation, and operating svstem/hardware environment brought together to 
provide information services for users is known as a database system. Although the 
technciogy for DBMS, operating system, and applications programming ts well 
developed, little attention has been given to the effective use of these tolls with 
alternative database structures. Thus, the major problem facing the database 
admunistrator is not whether to use this technology, but how to use it effectively. This 
problem can be summarized by a number of issues that arise through the life cycle of 
an application: 

(1) What are the user requirements, and how can they be expressed? 

(2) How can these requirements be translated into an effective database structure? 


(3) When, should, and how can, the database structure be adapted to new and/or 
changing requirements? 


The process of developing a database structure from user requirements is called 
database design. Manv practitioners have argued that thev are at least two separate 
Steps in the database design process: the design of a logical database structure which 1s 
processible by the DBMS and describes the user’s view of the data, and then selection 
of a physical structure that includes data representation or encoding, access methods, 
and physical clustering of data. Other than the logical/phvsical delineation, however. 
the overall structure of the design process has not been well defined, and even the 
logical; physical boundary has been open to considerable dispute. We wish to avoid 
this confusion by defining more concisely each step in the design process. 

Database design is an intuitive and artistic process. There is no algorithm for it. 
Typically, database design is an iterative process; during each iteration, the goal is to 
get closer to an acceptable design. Thus a design will be developed and then reviewed. 
Defects in the design will be identified, and the design will be redone. This process is 
repeated until the development team and users can find no major defects. ( 
Unfortunately, this does not mean the design will work; it simply means no one can 


think of any reason why it won't.) 
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The databuse is the bridge between people and hardware. As mentioned earlier, 
the characteristics of both people and hardware need to be considered. Consequently, 
database design is divided into two phases: logical design, where the needs of people 
are specified, and physical design, where the logical design is mapped: into the 
constraints of particular program and hardware products. Figure -4.1 illustrates the 
flow of work in a tvpical database design project. User requirements are studied and a 
logical database design is developed. Concurrently, the preliminary design of database 
processing programs is produced. Next, the logical database and the preliminary 
program designs are used to develop the physical database design and the detailed 
program specifications. Finally, both of these are input to the implementation phase 
of the project. 

This chapter will introduce theoretical logical, physical database. And then we 
will discuss about relation database design in detail and hypothetical Korean Army or 
Air Force's data will be used to show examples. 

Practical sample application program is shown in Appendix A. 
[Ref. 7: pp.177,178] 
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Figure 4.1 Database and Prograin Design Flow’. 
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B. LOGICAL DATABASE DESIGN 
Conceptual design deals with information independent of anv actual 
implementation. It is the objective of conceptual design to represent information in a 
form that is comprehensible to the user independent of system specifies, but 
implementable on several systems. 
1. Outputs of logical database design 
A logical database design specifies the logical format of the database. The 
records to be maintained, their contents, and relationships among those records are 
specified. Industry uses various terms for this design. It 1s sometimes called the 
schema, the conceptual schema, or the logical schema. We will use the term logical 
schema because it is the schema developed during logical design. 
a. Logical database records 

To specify logical records, the designer must determine the level of detail of 
the database model. If the model is highly aggregated and generalized, there will be 
few records. If model is detailed, there will be many records. The database designer 
must examine the requirements to determine how coarse or how fine the database 
model should be. The contents of these records are specified during logical design. 
Figure 4.2 shows an example of field description. 

b. Logical database record relationship 

The essence of database is the representation of record relationships. These 
relationships are specified during logical design. The designer studies the application 
environment, examines the requirements, and identifies necessary relationships. 

Figure 4.3 shows possible relationships for sevetal records in military 
personnel management systems database. The arrows represent many-to-many 
relationships between database records. Data structure diagrams are not the onlv tool 
for expressing relationships. To summarize, their content, constraints, and 
relationships. 

2. Inputs to logical database design 
The inputs to logical database design are the system requirements and the 
project plan. Requirements are determined by interviews with users, and that they are 
approved by both users and management. The project plan describes the system 
environment, the development plan, and constraints and limitations on the system 


design. 
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Field Description 


PERSON Record 


Rank Alphabetic, 25 character - 


Military_Serice_Number Numeric, 15 decimal degit 
Name Alphabetic, 25 characters 
Address Alphabetic, 70 characters 


MILITARY CAREER Record 


Military Service Number Numeric, 15 decimal degit 
Unit_name Alphabetic, 20 characters 
Duty _name Alphabetic, 30 characters 

Duty_rank Alphabetic, 25 characters 
Date FOrMdcua 1h D 


Figure 4.2 Sample field description for PERSON and MILITARY CAREER records. 


The requirement will be expressed in the form of data flow diagrams, policy 
statements, and the data dictionary. [laving the requirements in this form will greatly 
facilitate the logical design process. Contents of the data dictionary can be 
transformed into the logical and user’s views. Policy statements can be used to develop 
the descriptions of logical database processing. The requirements can be used to verify 
the completeness of the logical design. If the requirements are defined in narrative 
stvle, they will need to be converted to a format that facilitates logical database design. 

3. Procedures for logical database design 
The major steps in the logical design process are described below. 


(1) Identify data to be stored. The data dictionary is processed and data that is 
to be stored is identified and segregated. 
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MILITARY EDUCATION MILITARY CAREER 





Figure 4.3 Data Structure Diagram. 


(2) Consolidate and clarify data names. One task is to identify svnonvms, to 
decide on standard names for svnonyms, and to record aliases: Synonyms are 
two or more names for the same data item. 

(3) Develop the logical schema. The third step in the design process is to develop 
the logical schema by defining records and relationships. Kecords are defined 
by deternuning the data items they will contain. 

(4) Define processing. The, requirements are examined to determine how the 
database should Be manipulated to produce required results. The processing 
defines can be developed in several ways. One method is to. describe 

/ transactions and data to be modified. “Another method for describing 
database processing is to develop structure charts of the programs that will 
access the database. One method for developing such processing descriptions 
is called transform analvsis. 

(5) Design review. The logical schema and user views are examined in light of the 
requirements and program descriptions. Every attempt 1s made to identify 
onussions, unworkable aspects, or the flaws in the design. (Ref. 7: p.181] 

C. PHYSICAL DATABASE DESIGN 

The second stage of database design - physical design - is a stage of 
transformation. The logical schema is transformed into the particular data constructs 
that are available with the DBMS to be used. Whereas the logical design is DBMS - 
independent, the physical design is very much DBMS - dependent. 
1. Outputs of physical database design 
Specific constructs vary widelv from one DBMS to another. At this point, we 
can not be very detailed. In general, two major specifications are produced. First, the 
physical specification of the logical schema is defined. We will call this specification 
the physical schema. This schema is transformation of the logical schema into the data 
modeling constructs available with the DBMS to be used. Second, user views are 


defined. 
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PHYSICAL SCHEMA. The content of each record must be defined. and the 
name and format of each field of each record specified. Constraints from the logical 
database design are transformed into criteria for field descriptions. Keys of database 
records need to be identified, and overhead structures for supporting the keys defined. 
For example, the designer may specify that a particular key is to be supported by an 
inverted list. Record relationships are also defined in the physical design. Limitations 
in the DBMS may necessitate that record relationships be changed from what the users 
wanted. A many-to-many relationship may need to be changed to a simple network, 
for example. 

USER VIEWS. The second component of a physical database design is the 
user views. Since most users will need to view only a portion of the database, the 
logical design must specify which user groups will view which portions of the database. 

User views are generally a subset of the schema. Records or relationships may 
be omitted from a view; fields may be omitted or rearranged. - Also, the names ‘of 
records, fields, or relationships mav be changed. This flexibility allows uers to employ 
terminology that is familiar and useful to them. [Ref. 7: pp.188,189] 

2. Inputs to logical database 

The inputs to the physical database design are the outputs of the logical 

database design, the system requirements, and the preliminarv design of programs. 
3. Physical design steps 

The physical design pnase can also be categorized into distinct steps based on 
groups of related design decisions. However, once again, the proper ordering of these 
steps is Open to conjecture. owing to the fairly strong dependencies between these 
groups of design decisions. Practical experience has shown that neither the starting 
point nor the order of steps can be definitely stated for a given design problem. On the 
other hand, the physical design phase can be regarded as an iterative process of initial 
design and refinement. Each of proposed steps needs to be performed several times, 
but each succeeding analysis should be done more quickly because the procedure ts 
known and the number of unchanging performance variables should be increasing 
between iterations. Typically, two or three passes through the substeps will result in 
convergence to a solution. The relative importance of each step toward svstem 
performance becomes obvious through experience and careful documentation of the 


entire analysis. 


a 


The foilowiny five stems inciude three that represent the majcr categories of 
physical database structure design anc two that involve constraints and program 
design. 

STEP I: STORED RECORD FORMAT DESIGN. Assuming that the 
logical record structure has been defined, this process addresses the problem of 
formatting stored data by analvsis of the characteristics of data item types, distribution 
of their values, and their usage by various applications. Decisions on redundancy of 
data, derived versus explicitly stored values of data,and data compression are made 
here: 

Certain data items are often accessed far more frequently than others, but 
each time a particular piece of data is needed, the entire stored record, and all stored 
records in physical block as well, must be accessed. Record partitioning defines an 
allocation of individual data items to separate physical devices of the same or different 
tvpe, Or separate extents on the same-device, so that-total cost of accessing data for a 
given set of user applications is minimized. Logically, data items related to a single 
entity are still considered to be connected, and physically they can still be retrieved 
together when necessary. An extent iS a contiguous area of physical storage on a 
particular device. 

STEP 2: STORED RECORD CLUSTERING. One of the most iinpemea 
phvsical design considerations is the physical allocation of stored records, as a whole, 
to physical extents. Record clustering refers to the allocation of records of different 
types into physical clusters to take advantage of physical sequentialitv whenever 
possible. Analysis of record must take access path configuration into account to avoid 
access-time degradation due to new placement of records. 

Associated with both record clustering and record partitioning is the selection 
of phvsical block size. Blocks in a given clustered extent are influenced somewhat by 
stored record size, but also by storage characteristics of the physical devices. 
Furthermore, larger blocks are typically associated with sequential processing and 
smaller blocks with random processing. Thus, we see that although block size 1s 
closelv related to clustering, it is also dependent on access path, type of applications, 
and hardware characteristics. Consequently, choice of block size may be subject to 
considerable revision during an iterative design process. 

STEP 3: ACCESS METHOD DESIGN. An access method provides storage 


and retrieval capabilities for data stored on physical devices, usually secondary storage. 
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The two critical components of an access method are storage structure and search 
mechanisms. Storage structure defines the limits of possible access paths through 
indexes and stored records, and the search mechanisms define which paths are to be 
taken for given applications. Intrarecord design and device allocation aspects of 
storage structure are not used here, whereas index design and interrecord connections 
are quite relevant. 

An attribute is an item type it may be used as a primary key, secondary key, 
or nonkey. A primary key uniquely defines a record. A secondary key is an attribute 
used as an index to records, but it does not uniquely identify those records. A nonkev 
is an attribute that is not used as a primary or secondary kev for indexing or other 
search mechanism for records. 

Access method design is often defined in terms of primarv and secondarv 
access path structure. [he primary access paths are associated with initial record 
loading, or placement, and usually involve retrieval via the primary key. Individual 
files are first designed in this manner to process the dominant application most 
efficiently. For the same reason, phvsical databases may require several primarv access 
paths. Secondary access paths include interfile linkages and alternate entry-point 
access to stored records via indexes on secondary kevs. Access time can be greatly 
reduced through secondary indexes, but at the expense of increased storage space 
overhead and index maintenance. Step | - 3 are controlled by our DBMS. 

STEP 4: INTEGRITY AND SECURITY CONSIDERATIONS. As in 
implementation design, trade-offs among integrity, security, and efficiency requirements 
must be analyzed. 

STEP 5: PROGRAM DESIGN. The goal of physical data independence, if 
met. precludes application program modifications due to physical structure design 
decisions. Standard DBMS routines should be used for all accessing, and query or 
update transaction optimization should be performed at the systems software level. 
Consequently, application program design should be completed when the logical 
database structure is Known. When physical data independence is not guaranteed, 
program modification is likely. For example, a program based on a navigational access 
method would have to be radically changed if entry-point access methods Were 
introduced for the first time during the physical database design phase. 

Design decisions are also required in other areas, many of which are quite 


system dependent. Some examples are selection of buffer pool size, redundancy of 
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stored records, and differential files. These issues appear to be equaily impertant and 
difficult to analyze for both physical database structure and file design. 
[Ref. 9: pp.169,170] 


D. NORMALISATION 
1. Introduction 

By now we have examined several aspects of database systems in general and 
relational systems in particular. But we have not yet considered a very fundamental 
question, namelv: Given a body of data to be represented in a database, how do we 
decide on a suitable logical structure for that data? In other words, how do we decide 
what relations are needed and what their attributes should be? This is the database 
design problem. The topic of this section, normalisation theory, is basically a 
formalisation of simple ideas such as this one--a formalisation that has practical 
application in the area of database design. 

Before going any further. we should stress the fact that designing a database 
can be an extremely complex task. Normalisation theory is a useful aid in design 
process, but it 1s not a panacea. Anvone designing a relational database is advised to 
be familiar with the basic techniques of normalisation as described in this section, but 
we certainly do not suggest that the design should be based on normalisation principles 
alone. 

2. Functional dependence 

A functional dependency is a relationship between attributes. Attribute Y is 
said to be functionally dependent on attribute X if the value of X determines the value 
of vy. Another wav of saving this is that if we know the value of X, we can determine 
the valviewoi ee: 

For example, as it is shown in Figure 4.4, attributes NAME and BIRTH of 
relation BASIC are each functionally dependent on attribute MSN because, given a 
particular value for MSN, there exists precisely one corresponding value for each of 
NAME, BIRTH and RANK. In symbols, we have 

PERSON. MSN —- PERSON. NAME 
PERSON. MSN — PERSON. BIRTH 
PERSON.MSN - PERSON. RANK 
PERSON. MSN = PERSON. SPECIALTY 
OV) More Succinec ly, 
PERSON. MSN — PERSON. (NAME, BIRTH, RANK, SPECIALTY ). 
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PERSON( MSN, Name, Birth) 


key : MSN 










ee ia 





ASSIGNMENT( Name, Unit, Position,S_date) 


key : UNIT, POSITION 


Tae an ss 26.10. 1 


— Intelligence officer 86.5.4 














FAMILY(MSN,S_Name,S_SSN,NOD) 


key : MSN 


SPOUSE NAME SPOUSE SSN 
DEPENDENT 







NO OF 





Figure 4.4 Relational view. 
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The statement “PERSON.MSN — PERSON.NAME” is read as “attribute 
PERSON.NAME is. functionally dependent on attribute BASIC.MSN”, — or, 
equivalently, attribute PERSON.MSN functionally determines attribute 
PERSON.NAME”. We also introduce the concept of full functional dependence. 
Attribute Y is fully functionally dependent on attribute X if it is functionally dependent 
on X and not functionally dependent on any proper subset of X. For example, in the 
relation FAMILY, the attribute NOD 1s functionally dependent on the composite 
attribute ( MSN, SPOUSE NAME ); however, it is not fully functionaliy dependent on 
this composite attribute because, of course, it 1s also functionally dependent on MSN 
alone. 

On the other hand, attribute NOD is fully functionally dependent on the 
composite attribute ( MSN, S_SSN ). 

The objectives of normalisation are: 

-® to make it feasible to represent anv relation in the database 


¢ to obtain powerful retrieval algorithms based on a simpler collection of 
relational operations than would otherwise be necessarv 


e to free relations from undesirable insertion, update, and deletion dependencies 


e to reduce the need for restructuring the relations as new types of data are 
introduced 


e to make the collection of relations neutral to the query statistics, where these 
statistics are liable to change as time goes by. 


[Ref. 10: p.47] 
5. Normal form 

Normalisation theorv is built around the concept of normal forms. A relation 
is said to be in a particular normal form if it is satisfies a certain specified set of 
constraints. The real world with entities and their properties displavs a multitude of 
entity relationships which can be expressed in the form of two-dimensional tables or 
relations. These relations will in general be unnormalised, that is, they may contain 
repeating groups Whose presence creates serious access problems leading to reduction 
in data independence. A relation may also contain nonprime attributes with partial 
and indirect dependence on the candidate keys. These undesirable associations are 
removed from a relation by normalisation can be defined as a step-bv-step reversible 
process for transforming an unnormalised relation into relations of progressively 
simpler structures. Since the process is reversible, no information is lost during the 


transformation. Codd has defined three stages of normalisation known as the first 
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SPOUSE SSN NO OF DEPENDENT 


SPOUSE NAME 


' Figure 4.5 Functional dependencies in relation PERSON,ASSIGNMENT,FAMILY. 
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(INF), second (2NF), and third (2NF) normal forms corresponding to the three types 
of undesirable association discussed above, namely, the elemnation of the repeating 


zroups, partial dependence and indirect dependence. The levels of normalisation ‘are - 
shown in Figure 4.6. [Ref. 8: p.135] 


Unnormalized relation 





Remove repeating groups 


First normal form 


Remove partial dependence 





Second normal form 


© 2g) 





Remove indirect dependence 
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Third normal form 
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Figure 4.6 Three levels of normalisation. 


a. First normal form 
First normal form is the starting point, that is, all relations are in first 
normal form. An unnormalised relation is transformed into INF by splitting the 


relation into two, one for the repeating groups and the other for the rest. Consider the 
relation CAREER. 
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CAREER( MSN, RANK, NAME,UNIT,JOB,LOCATION,S_DATE,E_DATE) 


1111 Capt. Jae Park 222S8SQ A Kl 83.4.1 Co. LO 2k 


DeisO mete noon 0.22 °° 84.11.18 


2222 Lt/col. Sam Kim 22580" °C" Kk 84.8.4 Some 15 
226S0smD Kan 857216 308-3. 5 





Figure 4.7.) An unnormalised relation with repeating group. 


In order to select a specific person who is most proper for a specific 
position (or job), his/her career is very important. In that case, unnormalisation can 
be made easily as it is shown in Figure 4.7. This clearly unnormalised relation, since it 
includes the repeating groups of item code. This reiation is transformed into first 
normal form by splitting it into two relations PERSON and JOB as it is shown in 
Figure 4.8 

b. Second normal form 
As it is shown in Figure 4.6, partial dependence is removed from INF in 
2NF. The second normal form is formally defined in terms of what is called functional 
dependence. A normalised relation is said to be in the second norinal form if all tts 
nonprime attributes are fully dependent on each candidate key, tn other words, if non 
prime attributes do not show any partial dependence on the candidate keys. In Figure 
4.7, the attribute JOB is fully functional dependence on the collection of domain (MSN 
+ UNIT). But the LOCATION is independent of the MSN and 1s therefore only 
partially dependent on the key (MSN + UNIT). Finally the 2NF is shown in Figure 
4.9. 
¢. Third normal form 
As it is shown in Figure 4.6, indirect dependence is removed from 2NF in 
3NF. A normalised relation is said to be in third normal form if all its nonprime 
attributes are fully functionally and directly dependent on each candidate kev. To 


demonstrate transitive dependence, 


SY 





PERSON(MSN, RANK, NAME) 
LilPcape. Jae Park 


2222 CEO Sam Kim 


R1I(MSN, UNIT, JOB, LOCATION, S_DATE, E_DATE) 


Lien 222SQ A K1 83.4.1 OS 40.21 
DEBE 223S5Q B K2 Geet. 22 84.11.18 
ZEEZ 22oae C KS 84.8.4 85 we 15 
2272 226SQ D K4 85.7. 16 86.8.5 

: Figure 4.8 Relatrons nm INF of Figure 4.7. 


Let us consider relation MEMBER (Figure 4.10)containing Squadron, 
Pilot_name(P_NAME), Quantity of squadron(QOS), Rank. If SQ is the candidate key 
then this relation is not in 3NF, since the nonprime attributes RANK is not directly 
dependent on SQ. They are dependent on P_NAME, which 1s dependent on SQ. We 
convert this into third normal form by splittrng as shown in Figure 4.11. 

Transitive dependence causes update problems similar to those caused by 
partral dependence. Therefore all relations must be expressed in 3NF. On optimal 
third normal form is defined as the minimum number of relations that can express the 
original unnormalised relation. 

d. Fourth and fifth normal form 

Fourth and fifth normal forms deal with multivalued facts. A multivalued 
fact may correspond to a many to many relationship or to a many-to-one relationship. 
Under fourth normal form, a record type should not contain two or more mdependent 
multivalued facts about an entitv. In addition, the record must satisfy third normal 


form. Fifth normal form deals with cases where information can be reconstructed from 
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PERSON(MSN, RANK, NAME) 


P11 Capt. Jae Park 


2222 Lt/col. Sam Kim 


RI(MSN, UNIT,JOB, S_DATE, E_DATE) 
1 | 22259 83.4.1 S39. 10 2a: 
Ti 223550) S3eeOr 22,845 1s 
2222 22558 84.8.4 G5).07 VD 
Been 226SQ Sen ecelo 86.8.5 


R2(UNIT, LOCATION) 
Se 
OO K2 
Peo. K3 
226S8Q KS 





Figure 4.9 Relations in 2NF of Figure 4.7. 


smaller pieces of information which can be maintained with less redundancy. Roughly 
speaking, we may say that a record type is in fifth normal form when its information 
content can not be reconstructed from several smaller record types, i.e., from record 
tvpes each having fewer fields than the original record. Fifth normal form does not 
differ from fourth normal form unless there exists a symmetric constraint. One 
advantage of fifth normal form is that certain redundancies can be eliminated. 

We discuss two additional normal forms very briefly here, in order to give 


some idea as to how normalisation research is continuing. 


61 


MEMBER(SQ, P_NAME, QOS, RANK ) 
222SQ Jae Park 50 #£Capt. 
22050 Sam Kim 60 Maj. 


224S8Q Won Hong 70 Mage 


Figure 4.10 A relation showing transitive dependence. 


MEMBER1(SQ, P_NAME, QOS) MEMBER2(SQ, P_NAME, RANK ) 


222S0 Jaer Paria 22258Q Jae Park Capt. 
223SQ Sam Kim 60 22550 Sam Kim Maj 


224S0 Won Hong 70 224SQ Won Hong Maj. 





Figure 4.11 The retations of Figure 4.10 in 3NF. 


E. SCHEMA DESIGN 
|. View of the schema 

A relational database is specified by a relational schema which consists of one 
Or more relational subschemas. A relational subschema is a listing of a relation name 
and its corresponding attributes. Figure 4.12 represents an example of a relational 
schema. 

These views are then integrated to form an enterprise description which 
describes the entire conceptual schema. This description is used mainly for 
communication between the users and the schema designers. For each entity type 


identified, a description of the entity type is produced and the associated data classes 


PERSON(MSN, Name, Rank, Birth) 


key : MSN 
REWARD/PUNISHMENT(MSN, A_rank, Type, Data, Reason) 


key : MSN + Type + Date 


MT(MSN, C_name, S_date, E_date, Period, Grade) 
KEY : MSN + C_name + S_date + E_date 


* MT: MILITARY TRAINING 


Figure 4.12 An example of a relational schema. 


identified. The description names the entity type, defines what it represents, and lists 
its associated attributes. 
2. Identifying constraints 
[n order to complete the enterprise description step, identify constraints on the, 
attributes, entity types, and relationship types. It seems better to state all constraints 
explicitly rather than as inherent constraints. To help identify constraints, the 
following questions are posed: 
(1) what is the domain of values for each attribute? 


(2) What are the known functional dependencies, between attributes of each entity 
type? (it 1s discussed tn detail in previous section 


(3) What are the keys for each entity type? (it 1s discussed in detail Chapter I1]) 
(4) What are the predicate constraints to be placed upon the data? 
It is difficult to arrive at a set of constraints that represents the application 
and its consistent and feasible, because some forms of the constraints are difficult 


understand and are prone to nusunderstandings and errors. Figure 4.13 shows domains 


and attribute/domain correspondence based on Figure 4.12. 


F. TRANSACTION CONSIDERATION 
The final phase of the enterprise description step identifies the transaction- 


processing requirements of the organization with respect to the enterprise description. 


é 
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Domain Name Format and Meaning 
MSN positive integer less than 10000 
Name char(20);full names of person 
Rank . char(20);person’s rank 
Birth numeric YYMMDD 
A_rank char(20);person's rank when he/she 


was Rewarded or punished 
C_name char(40);military training course name 


Grade value is A sR] C*tone p 


Figure 4.13) An example of domains and attribute/domain correspondence for Fig 4.12. 
é 


All current and projected transactions are included. For cach transaction, the designer 
identifies its mature (retrieval, update, delete, insert), its frequency, its origin 
(organizational area), and its purpose, together with the point(s) of schema it affects. 
Figure 4.14 shows a example of transactions. To help identify requirements for 
supporting transactions, the following questions are posed: What transactions are 
required by each organizational area? What kind of access is required by each 
transaction? What reports are needed? What entity types, attributes, and relationship 


types are involved in each transaction? etc. 
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Sas ape == ey MS 


Transaction: List all combat pilots who have’ some 
flying qualification, capability grade, 
and whose rank is captain. 

Organizational area: Operational Department 

Entity: PERSON( MSN, RANK, NAME) 

COMBAT QUALITY /TRAINING( MSN, UNIT, FLY_Q, C_GRADE ) 

Relationship types: PERSON-COMBAT QUALITY/ TRAINING 

l. Retrieve PERSON entity(for MSN, RANK, NAME) 
2. Retrieve all PERSON entities related to the 
COMBAT QUALITY/TRAINING via a PERSON- 


COMBAT QUALITY/TRAINING 


Figure 4.14 A simple example of transaction. 
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V. SYSTEM ANALYSIS FOR RELATIONAL DESIGN 


A. PROBLEMS AND USER’S REQUIREMENT 

First of all,in order to design a database, we should interview with user and and 
decide output which they need. In case of the R.O.K Air Force, we should classify or 
break down pilots by their skill,flying hours, flying qualification etc. to select pilots 
who are best for specific jobs. This step consist of a high-level analysis of the function 
of an organization. Desired information of personnel managers. or unit commanders 
might include: 


1. List of all new commissioned officers in a specific year concerning scholarship, 
major, health condition, family condition, etc. 


2. The number of cadets or candidates who should be commissioned in the next 


vear or at a specified vear for each source organization. 


3. List all officers with each rank who graduated each militarv education course. 
4. Selection of some officers for some positions. 
5. Summary of an officer’s career from a certain previous rank up to the current 


frank: 


6. List certain officer’s rewards or punishments. 


4 


Present an information list for pigmonen purposes for each rank and service 
branch. including career. result of fitnees reports. education. rewards and 
punishment, health condition, and the order of promotion recommendation.etc. 


8. List all pilots who. satisfy a certain level of flying hours, flying qualification and 
a certain type of aircraft. 


All of information which may be required by personnel managers can not be 
desired, because different managers request different information. Personnel managers 
might need information for their job in addition to that described above. The purpose 
of requirement analysis 1s to: 

(1) Gain familiarity with the area of the organization to be modeled 


(2) Determine the information requirements of the organization without regard to 
constraints other than the wavy in which the organization does business. 


(3) Represent these requirements via some formal modeling technique. 

Some major personnel management aspects of the Republic of Korea Armv are 
promotion selection, job assignment management, estimation of required personnel 
resources for education, Welfare-Morale management and payroll. We will consider 
and discuss only the data concerning the Personal Record, which is composed of basic 
information, education, career, etc. Record relationships and record structure will be 


discussed in detail in the next section. 
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Promotion Selection is managed by the Department of Personnel Management. 
To coliect the general personnel data for promotion selection, 2 to 10 officers from 
each branch of the Army execute the routine job of manual data collection every year. 
Since it is a manual job, there exists the possibility of mistakes and it is impossible to 
provide the various kinds of data necessary to support promotion selection. 

In the case of assignment management, it is difficult to examine the data for 
matching required personnel with available personnel resources for a specific job or 
position. Therefore, an officer may be assigned to an undesired unit or job because of 
a subjective decision made by the detailing officer. This has caused a great deal of 
personnel dissatisfaction with job assignments. 

The Department of Personnel Management is responsible for promotion selection 
and job assignment management. The Central Financial Corp is responsible for 
payroll. Welfare management is the responsibility of the Welfare-Morale Corps. 
Because they maintain separate data, data integrity and accuracy is very low. 

As was mentioned above, the numerous problems faced are : 

(1) Wasting manpower and time due to manual processing causing work delays 
(2)  Ineffectiveness of work and non-integrated data processing due to individual 
soitware maintenance, and spending a relatively large amount of time on the 
maintenance effort and minor enhancements 3 
(3) Lack of proper supporting svstem for decision-making 
(4) Lack of data accuracy 
Figure 5.1 shows the scope and objectives of the database that we have designed in this 


thesis. 


B. MODELING 

The essence of database design is the representation of record relationships. The 
relationships can be specified in a variety of wavs. Data Structure Diagram (DSD also 
called Bachman Diagram) is a simple method used to represent overall record 
Structures. The single or double arrow notation is used to express relationships 
between records (one-to-one, one-to-many, many-to-many relation ships). shows the 
relationships among records. 

The relationships are identified intuitively. The design team considers potential 
relationships among records that have been defined. A relationship may exist among 
three, four or more records. At this point the design team must discriminate between 


theoretical and useful relationships. A theoretical relationship can exist logically, but 
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e Problem : Individual and manual data processing. 
e Objectives : To design and implement a prototype 


personnel management system. 


1. Providing proper data for decision making. 
a. Promotion selection. 
b. Assignment management. 
c. Management of personnel resources 
for education. 
d. Welfare & morale. 
e. Personnel supply. 
2. Reduction of manpower and time by 


| 
\ 
| 
9 Project : Personnel Management System. 
integrated data maintenance and processing. 


3. Increase in data accuracy and work efficiency. 





Figure 5.1 Statement of scope and objectives. 


may never be needed in practice. Theoretical record relationships were discussed in 
Chapter III. 
|. Record structure 
In order to satisfy the user's requirement we will derive a number of records 
from personal data. Because of military security, we will prototype similar record 
niodel instead of displaying the whole personal record. From the information in the 
personal record, we can build a number of record by bundling a few items as fields in a 
relational model. In this thesis, we will generate the following records with the 
underlined field(s) as the key: 
1) MAIN (SN, NAME, ORG BRANCH, C_TYPE, BORN_DATE, 
BORN PBACE) 


SN : Service number 
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2) 


4) 


5) 


6) 


NAME : Name 

ORG BRANCH : Original branch 
C_ TYPE : Commissioned type 
BORN_DATE: Born date 
BORN_PLACE 


Mee WUGAT. (CVAME, CLASS SIZE, START DATE, END_DATE, 
SNAME, CLASS MEAN) 
CNAME : Course name 
CEASS SIZE : Class size 
START DATE : Start date 
END DATE : End date 
S_NAME : School name 


CLASS MEAN : Class mean points 


EDUCATMN (SN, CNAME, E_GRADE,MEAN) ---- Intersection record 
SN : Service number 

CNAME : Course name 

E_ GRADE : evaluation grade 


MEAN : Personal mean points 


RANKS : Rank 
P_ ORDER : Personnel order 
T_DATE: Date 


PROMOTE (SN, P ORDER) ---- Intersection record 
SN : Service number 
P ORDER: Personnel order 


AWARDPUN (KIND, P_QRDER, T_DATE) 
KIND : Kind of award and punishment 
P ORDER: Personnel order 


Hewat: Date 
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8) 


9) 


10) 


11) 


12) 


chapter. 
a 


== SP oe =] ae Se 


SIN 7 Service number 
P ORDER retsonmelorder, 


A_P_P(KIND, POINT) 
KIND : Kind of award and punishment 


POINT : Points given by award and punishment 


SN : Service number 
EXPER TITUE 2 expermauce 


P EVAL (SN, GRADE, ZDAZE) 
SN : Service number 

GRADE : Performance evaluation 
T_DATE: Date 


CAREERS (SN, SE NO, START_DATE, END_DATE, P_ORDER) ----- 
Intersection record 

SN: Service number 

SE_NO: Serial number 

STAR_TDATE: Start date 

END DATE) End date 

P_ ORDER: Personnel order 


UNIT (SE We, DUTY TILER Sein is) 
SE_NO: Serial number 

DUTY _TITRE | Dugeane 

CIN eee ait 


Precise information about each field is in Data Dictionary in Section C. of this 


Record relationship diagram 


As was mentioned before, the fields in the MAIN record are fixed items that 


never need to be changed. Therefore, as we can see in Figure 5.2, all other records are 
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AWARDPUN 


fee DUCAT 


Seer 


Figure 5.2 General view of record relationship diagram. 





centrally related to the MAIN record. Each record has its own individual purpose, [for 
example, AWARDPUN record shows information about award or punishment which a 
certain person was given ,M_EDUCAT record shows training and education that a 
certain person has taken. The reason that we show record structure in the previous 
section is to make it easier for the user to understand what record is needed for what 
purpose. Relationships in Figure 5.2 should be reorganized by intersection record to 
divide complex network record relationships. Reducing a complex network to a simple 
relation is discussed in Chapter III. Figure 5.3 shows the final record relationship 


design with intersection record. 
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AWARDPUN P_EVAL 
Za 
EDUCATMN A_P_MN UNIT 


| 

| 

| 
PROMOTE 


s 
{ 


p 


Figure 5.3 Record relationship diagram with intersection record. 


C. DATA DICTIONARY 


A data dictionary could be defined as a collection of correct information about 


the words and terms used by an organization to describe its data. The term data 


TZ 


dictionary is used to indicate a collection of information, that is, a set of files or a 
database. fhe term is also used to dscribe the mechanism for storing data in the felds 
and databases, that is, a system or a collection of computer programs. Data 
dictionaries as files or databases contain data which are physically stored on magnetic 
storage media, most often magnetic disk. Data dictionary systems as a collection of 
computer programs perform the functions of storing, retrieving, and quite often 
manipulating and passing data on to other systems, like the DBMS. 

The six major steps in building a DDS(Data Dictionary System) that will respond 
to the enterprise’s need for having complete control over their data resource follow: 
[Ref. 11: p.56] 

(1) Establishing data naming and definition standards/conventions: This includes 
standardization of data elements, data items, and data definition (DD) naming 
conventions. program naming conventions, and job name naming conventions, 
at minimum. 

(2) Establishing. standard abbreviations and acronyms: _ This includes 

standardization of abbreviations_and acronyms, as Well as of establishing the 
mile to deiime a term the first time it is being used in programs, 
documentation.reports,etc. 

(3) Identifying and defining “base data” data elements; This includes the 
identification and definition of “product, data” and the “division or department 
data” of the enterprise. both of which are essential for the company's 
existence. 


(4) Identifying and defining codes: This includes identification and definition of 
code types of data elements. 


(5)  Identifving, defining. and standardizing, input, update, and | validation 
procedures: This incfudes identification, definition, and standardization of I, O, 
update and validation. 


(6)  Identifving and defining data characteristics: This includes the identification 
and definition of the characteristics of data. 


Management of a database is usually a complex process. [t requires the database 
administrator to keep track of all the database and user view definitions as well as their 
use. Data dictionaries have been developed to aid the database administrator in this 
task. The generation of the data dictionary which documents functions, data bases, 
allowable values, formats, and their interrelationship shouid be initiated at this point. 

The Data Dictionary for this thesis is as follow: 

Field name: sn 

Format: character 

Width: 8 

Allowable value: less than 100,000,000 

Description: military service number of person. 
for example, 77-15-3376, 73-05-5253. 


is 


Field name: name 

Format: character 

Width: 25 

Allowable value: last name, first name middle name 


Description: name of person 


Field name: org_branch 

Format: character 

Width: 20 

Allowable value: infantry, engineer.etc. 

Description: original branch that a person was 
assigned when he/she was commissioned. 
sometimes person work in another branch 


for some period of time. 


Pieldimame: cute 
Format: character 
Width: 10 

Allowable value: ROTC, KMA(Korean Military Academy),etc. 
Description: commisioned type that is identified by the 


school or education before commision. 


Field name: born_date 
Format: character 

Width: 3 

Allowable value: YY MMDD 
Description: date of birth 


Field name: born_place 

Format: character 

Width: 15 

Allowable value: city of Seoul, Chunnam do... 


Description: birth place. a special city, a city under the 
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direct control of the government or do(province) 


Field name: c_name 

Format: character 

Width: 20 

Allowable value: infantry OBC, engineer OAC. etc. 

Description: military course name. a list of the types 
of training required for a certain job or 


malik. 


Fieldname: e_ grade 

Format: character 

Width: 15 : 
Allowable value: outstanding, middle,etc. 
Description: evaluation grade which is given at the 


end of every training or education course. 


Field name: mean 

Format: numeric 

Width: 5 

Allowable value: less than 100 


Description: personnel average value 


Field name: class_size 
Format: numeric 
Width: 4 
Allowable value:less than 500 
Description: number of students in class. 
class size is needed when a person's position 


in class should be given for evaluation. 


Field name: start_date 
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Format: character 

Width:8 

Allowable value: YY MMDD 

Description: date when he/she starts a certain assigned 


job or education. 


Field name: end_date 

Format: character 

Width:8 

Allowable value: YYMMDD 

Description: date when he/she finish a certain assigned job 
or education course. start date and end date 
is needed to know time and duration of person's 


assigned job or education course. 


Field name: sname 
Format: character 
Width: 8 
Allowable value: Army infantry school,Army engineer 
school,etc. 
Description: school name. many military training or 
education courses are provided by many 


different schools. 


Field name: class_mean 
Format: numeric 

Width: 5 

Allowable value: less than 100 


Description: class mean grade 


Field name: rank 
Format: character 
Width: 20 
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Allowaoble value:2LT,1LT,Capt.ete. 


Description: person’s rank 


Field ’name: p_order 

Format: character 

Width:20 

Allowable value: 77-33 army, 78-13 army,etc. 

Description: personnel order for education, assignment, 
promotion etc. p-order has many different 


type of serial number for each tvpe of order. 


field Mame: t_ date 

Format: character 

Width: 20 

Allowable value: YYMMDD 


Description: date 


Field name:kind 

Format:character 

Width:20 

Allowable value:staff of chief awarding, corps commander 
awarding,etc. 


Description: kind of award or punishment 


Field name: point 

Format:numeric 

Width:4 

Allowable value: greater than -5 and less than 5 
Description: different point is given depend on the type of 


award or punishment. 


Field name: expertitle 


ie 


Format: character 
Width: 20 
Allowable value: CPA, civil engineer,etc. 


Description: some people have special qualification. 


Field name: grade 

Format: character 

Width: 2 

Allowable value: aa.ab.ba,cb,etc. 

Description: this field is composed of two grades, the first 
grade is given by commander and the second 
grade is given by vice-commander by the level 


of job accomplishment. 


Field name: dutytitle 
Format: character 
Width: 20 
Allowable value: platoon leader.company commander,etc. 
Description: duty title. some job or assigned position 
is required for promotion. duty title is 


needed for job assignment or promotion selection. 


Field name: unit 

Format: character 

Width: 25 

Allowable value: 55x 227r 2bn 5co 2pl,48x 105r /0bn,etc. 
Description: unit is composed of division(x), 


regiment(r),battalion(bn),company(co),platoon(pn). 


Field name: se_no 

Format: numeric 

Width: 7 

Allowable value: 9293001,7354023,etc. 
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cription: serial number. unique number is given to 





every unit. 
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VI. DATA BASE IMPLEMENTATION 


A. INTRODUCTION 

The introduction of a data base as the central reservoir of data affects the user 
organization in a number of ways. For example, it changes the organization’s attitude 
to data requirements and management, it creates new authorities and it brings in new 
skills. It also enforces greater coordination between the various user departments and 
demands stricter adherence to standards. A good implementation scheme should 
include adequate provision to tackle these problems, in addition to having plans for 
system developments and scheduling of resources. Much of this would be planned and 
controlled by the DBA, on whose ability will largely append the success of the venture 
- provided that the right DBS is selected in the first place. In this chapter we will 


~ discuss these issues: relational implementation and data base administration. 


B. = RELATIONAL IMPLEMENTATION OVERVIEW 

In relational systems, data relatibility is provided by the ability to construct new 
relations from existing relations by the use of the relational operators. The relational 
operators may require access paths to contain or represent the derived relations. The 
access paths may exist in the system, or they may be constructed by the system as 
required. For instance, a join can be implemented as a separate file, as a set of 
pointers, or by storing the definition of the join and generating it as needed. However. 
no matter how it is implemented, the user is not aware of the exact representation and 
does not really care what it 1s. 

Since a user is not explicitly aware of the access paths tn a relational system, this 
may lead to the misconception that relational systems do not provide access paths. 
This is far from true. As in a hierarchical or a network system, a relational svstem may 
need specific nature. The existence, and maintenance of these access paths may be 
hidden from the user. Nevertheless, they exist, and their implementation is one of the 
hardest design problems in a relational system. 

Relational systems can be differentiated according to how they represent derived 
relations via access paths. If they only store the definition of a derived relation, then 
the access paths corresponding to the phvsical implementation of the derived relation 


are destroved after every query. In this case, content addressability may be sufficient 
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to construct the access paths as required. For example, a join can be constructed using 
content addressability by correiating tuple identifiers from the inverted files, for the two 
relations, according to the join condition. On the other hand, the system can retain 
and maintain the access paths corresponding to the definition of a derived relation. In 
this case, the maintenance of these access paths can become very involved. 

There are currently many commercial DBMS products that claim to be relational. 
Some are more relational in name than in actuality. The DBMS should model data as 
tables, and it should support SELECT, PROJECT, and unrestricted JOIN operations. 
A system that supports restricted JOIN operations falls in a gray area. Some people 
would call the system a relational system in spite of this limitation. Others would call 
it a tabular system. 

Relational DBMS can be divided into three groups. One group is based on the 
data language SQL, one on the data language QUEL, and one group contains svstem 
falling into neither of these categories. Three major SQL-based DBMS products are 
SQL/DS. System R, and ORACLE. System R is a research svstem developed by IBM 
for the study of relational technology. Svstem R has been used in a prototvpe mode 
by several major industrial concerns. SQL/DS is a commercial version of System R. 

ORACLE was developed for operation on Digital Equipment Corporation PDP 
minicomputers. Since its organization, ORACLE has been converted to operate on 
IBM mainframes as well. ORACLE’s user interface is based on SQUEL II, an earlier 
version of SQL. According to RSI, ORACLE will soon be compatible with the current 
version of SQL. 

QUEL (QUEery Language) is a data language hike SQL. QUEL is based on 
tuple relation calculus. QUEL is nonprocedural and allows the user to process data 
without concern for physical data structures. The data base product INGRES 1s based 
on QUEL. INGRES operates on Digital Equipment PDP hardware and runs under 
the UNIX operating system. IDM 500 1s also based on QUEL. 

There are many other relational DBMS. There is even a microcomputer 
relational product: dBASE II, which is needed by Ashton-iate. dBASE II operates on 
CP/M-based micros. dBASE II is an example of a relational DBMS that restricts join 
operations. The join columns must be indexed. [Ref. 7: pp.437,438] 


81 


C. IMPLEMENTATION USING DBASE Uf+ 

As we mentioned before, We use DBASE III + to show the sample application 
program for prototyping in this thesis. The Korean military personnel management 
system has been implemented using dBASE III+ relational DBMS in appendix. As a 
word processor allows one to manipulate characters, words, sentences and pages to 
create a document that fits one’s needs, dBASE III + allows one to work with fields, 
records, and files to manage data 1n Just the desired manner. 

We will provide basic operations to implement the data base using dBASEIII + 
in this section. 

lL. CREATE 


First of all, in order to create a files CREATE command is used as follows: 


CREATE FARK 
Field Name Type Width 


RANKS Character 29 
PreReen Character 20 
TDATE Character 8 





2. USE 
A file called PARK has now been created on the data base by |. To select a 


file to work with, we should use USE command: 


eS) tec 


3. APPEND 
To add the information to the file, use the APPEND command. APPEND 


lets the user more the cursor to any field and enter or change the information. 


e AFFEND 


RANKS 2nd lieutenant 
P ORDER 72S army 


TDATE Oe) 2577 7, 


RANKS lst lieutenant 
P_ORDER 78-33 army 
TDATE 04/01/78 





4. LIST 
When we create a file or add information to a certain file, we need to verify 


the information and data structure. In this case, we use LIST command to list a data 


file’s contents on the screen. 


meet ST 

Record# RANKS P ORDER Toews. 
1 2nd lieutenant 77733 army S87 25777 
2 ist lreutenant 78-33 army 04/01/78 

- LIST FOR RANKS = "2nd lieutenant" 

Record# RANKS PLUOnRDER TDATE 
1 2nd lieutenant 47-55 Tarmy OSs 7 7 


. LIST STRUCTURE 
Structure for database: C:FARK.dbf 


Number of data records: 1 | : 

Date of last update s O17097 87 | 

Field Field Name Type Width Dec 
1 RANKS Cnaracter © ; 
Zee ORDER Character 20 | a | 
3 TDATE Character 8 

x% Total xx . 49 


, 


83 


5. EDIT 
If the contents of data file is changed, the EDIT command can be used. 


EDIT allows full screen operation. 


‘ 


RANKS PORTER TDATE 
2nd lieutenant 77-33 army 03/28/77 
ist lieutenant 78-33 army 04/01/78 


fet lieutenant 
73-55 scan 
04/01/78 


RANKS i PO ORDER TDATE 
Znaq lieutenant 77733 army 03/2872 
major 73-33 army 04/01772 
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6. DELETE 
To delete records from a deiete file. we use DELETE command. 











RANKS FP ORDER TDATE 
1 end lieutenant 77-35 army Ow 28777 
2 major yo-55  orimy 04/01/78 







. DELETE RECORD 2 
1 record deleted 








eee i SPLAY 
Record# RANKS ae) a) a TDATE 
Zena OF 73-35 Army 04/01/78 








» RECALL 








1 record recalled 
mee ISPLAY 
Record# RANKS Bee OROen TDATE 
78-33 army 94/01/78 





Ze maior 











DELETE RECORD 2 

1 record deleted 
. DISPLAY 
Record# 
2 AMaAjJOr 







RANKS P_ ORDER TDATE 
74-33 army Om On/ 7S 















eee elk 





1 record copied 






Record# RANKS BORO os. : TDATE 


1 2nd lieutenant 7/7-33 army OS an? / 
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7. SELECT 
‘To use more than one data file, dBASE Ii1+ reserves two areas of memory 
for data file. If it is necessary to use another data file at the same time, SELECT | 


comunand must be used. 


SELECT} 

USE PARK 

SELECT GZ 

USE FROMOTE INDEX PROMOTE 

JOIN WITH PARK TO TEMPFILE FOR F_ORDER =#A->P_ORDER FIELDS SN, A- SRANKS 


2 records joined 
USE TEMFFILE 
VEST, 
FRecord# SN RANKS 
1 20001 2nd lieutenant 
Zn ote znd lieutenant 





8. INDEX 
We can use INDEX command to sort a data file in a certain order. If a 
specific item, not the whole list, is wanted, then the FIND command can be used to 


display on the screen. 


INDEX ON P_ORDER TO KIM 
100% indexed 2 Recorde indexed 
USE PARK INDEX KIM 
»s LIST 
Record# RANKS P ORDER TDATE 
1 2nd lieutenant - 77 —SS Sale Wy, O3/28777 
« 1st lieutenant 78-33 army 04/01/78 


- FIND 77-33 army 
- DISFLAY 


Record# RANKS P_ORDER TDATE 
1 2nd lieutenant 77-33 army O37 28777 
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D. DATA BASE ADMINISTRATOR 

In a conventional system, files belong to the relevant user departments. It is they 
who are responsible for the accuracy, consistency and up-to-dateness of data in the file, 
although regular maintenance on their behalf is normally carried out by the data 
processing staff. In a data base where all company data are centrally held, no single 
user department can be responsible for it. Instead this responsibility is exercised by the 
data base administrator on behalf of the whole company with a view to preserving the 
interest of both current and future users. In addition, the DBA is also responsible for 
creating, expanding and improving the data base and for providing user facilities. For 
a small data base, the function of the DBA can be performed by an individual as a 
part-time job, but for a large data base, the function can require the full-time services 
of a team. To be effective, the DBA should represent a senior position with sufficient 
authority to arbitrate disputes between the user departments on data base usage, and 
to impose decisions in case of deadlocks. He should also be accepted as the final 
authority in all matters relating to the management of the data base. 

The function of the DBA should be include the following activities: creation of 
the data base. performance optimization, data protection, specification and 
enforcement of standards, and coordination and the provision of the user facilities. 


David defines the responsibility of DBA as follow: 


(1) DBA Data Activity Management Responsibilities 
e provide data base standards 
e establish data owner ship, retrieval, and modification rights 
® create and disseminate recovery procedure 
e inform and train users 
e enforce data activity policy 
e publish and maintain documentation. 
[Ref. 7: p.540] 
(2) DBA Database Structure Management Responsibilities 
e design the schema(s) 
e provide design expertise 
e control redundancy 
¢ maintain configuration control of change requests 
e schedule and run configuration control meeting 


¢ implement schema changes 
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maintain user documentation 


maintain DBA documentation. 


[Ref. 7: p.544] 
(3) DBA Responsibilities for Database System Management . 


generate data base system performance reports 
investigate user performance complaints 
analyze reports and complaints 

tune the data base system 


tune. Sogumunicaugns software and operating system to data base (when 
possible. 


evaluate and implement new features. 


[Ref. 7: p.548] 
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VI. SAMPLE PROGRAM PROCESSING 


Personnel management system (PMS) is a menu driven program organized along 
functional lines, Each major function in the system corresponds to a section of the 
User's manual and selection from the main menu. [t is important to read the 
information or the feature you plan to use before you use it. This tells you exactly 
what information vou need and where to find it. 

Winereis also a chapter on the DRIVER (or main menu) section of PMS. This is 
very important to read before you start using PMS as it describes the actions required 
if you get stuck in the middle of a program and cannot get out or if the system crashes. 

This manual is indicated for use with the IBM PC(AT). You have been provided 
3 diskettes: dBASE IfI+(I), dBASE HI+(I1), and PMS. You must “boot up” your 
computer system (which ‘should be equipped ‘with a hard disk) and then do the 
following: 

1. Copy above diskettes into the hard disk. 
2) Ivpe dbase’ (no quotes needed), and then stnke the return key. Once the 
system is loaded, you will see the ”.“(dot) prompt on the screen. 


Type “set default to c’(no quotes needed) and then the return key, the ”.”will 


2 


appear again. Now you are ready to use the personnel management database 
system(PMS). 

4. At this point, type “do driver”(no quotes needed) followed by a carriage return. 
After a short wait, the PMS main menu will appear and vou can start enjoving 
PMS. 


You have to follow the command messages which appear on the screen. The 


Cn 


various options of the main function of this system are specified in the first 
message (main menu). Enter the main menu-letter which you want. This will be 
followed by another message menu on the screen. Select the menu-letter which 
you want, and follow the command message on the screen. 

6. After having done what you wanted, you can return to the previous menu by 


selecting menu option “x”. 
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A. DRIVER 

The driver program has three functions: First, it will ask what kind of service 
you require and then call that function vour task. Ic will continue until you finished. 
This is a very straight-forward menu driven selection process and does not require any 
special information to use. Second, much more complicated part of the DRIVER, 
deals with reconstruction of the Data Base if the system crashes in the middle of a 
session. The DRIVER always stores a copy of every user interaction in a file called 
CRASH.TXT. This file is deleted at the end of every normally terminated run. 
However, if the run were to abort abnormally this file would allow you to recreate 
every step and check the contents of the Data Base for accuracy. Finally, if you 
change the data in all svstem programs, the data is used continuously after changing. 

The DRIVER program presents the main menu on the screen(Figure 7.1). [f you 
are unfamiliar with the 7 options presented in the main menu, refer to the preliminary 
information-section so that you can refresh vourself on what each option is all about. 
Select an option from |! to 7. Upon option selection please refer to the respective 


section you have just selected. 


OFF loo eee PERSONNE LC MAN A GE Ee Na 


- PERSONNEL ALLOTMENT TABLE. 
+ LTSTEnG. 
Any query that requires a listing or information 
- REFGRT (personal record card). 
- UPDATE. 
> Eb ie 
- DICTIONARY. 
« CHANGE DATE. 
re Sy 1 Be 





Figure 7.1 Officer personnel management. 


90 


B. TABLE 
The Table function allows you to obtain the number of officers for each rank. 
You can reach this section by entering an “A” at the main PMS menu, and then the 


following screen{ Figure 7.2) will appear. 


Poaeives Com eonNick Rote aes ME Ney 


COMPANY GRADE OFFICER: 

FIELD GRADE OFFICER :; 

GEMERAL GRADE OFFICER: 
TOTAL 


K¥E8 XL. Return to maln menu KEEEX 


09318332 


Enter 





Figure 7.2 Personnel allotment. 


C. LISTING 

The listing function allows you to obtain listing of information on officers. You 
can reach this section by entering an “B” at main PMS menu. It is designed to cycle 
back to the main LISTING Menu until all of your queries are answered. I[t will then 
return you to the main PMS menu.The available listings are shown the following 
screen(Figure 7.3). Please pay close attention to the section on what information you 
need to access each report. 

lL. Select option “A” to list all officers 

As the title suggests this section will provide a list of all officers in the data 

file.. The output is shown below (Figure 7.4). 

2. Select option ”B” to list all new officers for assignment 

- This section provides a list of all new officers for assignment. The following 
screen( Figure 7:5) will appear. In order to use this section you will need the personnel 


order of the new officer exactly as it is shown in the database. A complete list of the 
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| LISTING | 
2papEESeggsaa gsc ysrggegs 


sggeadeeananenantteayescecysaztetacycenctéateetpaegstgay reyictytentatey 
ECU gga ead eeu ALERTS Td 


GEEEEEEEa tienes dsarenyageictegecaiagsacat itis HHI: 


FesHSG HELTER EAE ia TideH EHH HH Adee aetinaE aa TD 
SUBMENU ERASED EEE 


‘A. List all officers. 

6B. List all new officers for assignment. 
C. List all officers educatec. 

D. List all officers for promotion test. 
Change date 

































Return to main menu 


. : 

Cece essere ras reeneees 
ET eServreesereneng vrenseseseresesergecs 
Pecos etertece 









12/19/86 01:41:39 












iH 
ii} HH 
Sesreicerceaeatietiiage = sanseeecscecescesegsesecuacsesacssses: Prien i 
inminaiil © Enter selection ( A - &, or X to Exit ) ss iteanainauenmneetceeet| 






Figure 7.3 Submenu of listing. 


major Zooot jung,jee ho 
major alag4 kim,sam nam 
major BIG 73 joo,dae joon 


major Amel e kang,3e0n mo 


major 224356 park,jae bock 


Press any key to continue... 





Figure 7.4 List all officers. 


personnel order can be found in the Appendix of this thesis. You must enter the 
personnel order exactly as shown or the system will not be able to match the correct 


personnel order and will return an error message. The outputs are shown below 


(Figure 7.6). 


LIST ALL NEW OFFICERS’ RECORD 


12/19/86 01:44:33 


List for what personnel order( or press RETURN 
( @.g coo--> )=§=6©686-5T5 ARMY ) 


List for what rank {or press RETURN to exit) 
(@.gQ m--7-> ist lieutenent) 


to exit) 


Figure 7.5 Query to find out comnussioned officers. 


Fage No. 1 
12/19/86 


NEW COMMISSONED OFFICERS 


RANK SERVICE NAME 


COMMISSONED 
NUMBER TYPE 
major 22222 kang,seon ma K.M. AK SS 
major 23456 park, jae bock K.M.AWSS 
Press any key to continue... 


“4 = 


Figure 7.6 List new commissioned officers. 
3. Select option ”C” to list all educated officers 


It will provided a list of the officers educated in the military school. The 
following screen(Figure 7.7) will appear. In order to use this section you will need to 


enter the military education course name in the Appendix exactly. The outputs are 
shown below( Figure 7.8). . 
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lns | 


LIST EDUCATION RESULTS OF EACH OFFICER. 61/31/87 09:20:29 | 


ee ee ee ee ee ee ee oe ee ee ee oe ee oe 9 oe oe oe ee 9 ee ee ee we ee ee ee ee ee ee ee ee es ee ee es es ew es = a 


List for what course name‘ or press RETURN to exit? 
( e.g —--~>INFANTRY 0.A.C#2354 ) 


Figure 7.7 Query education results of each officer. 


Page No. t 
12/19/66 

LIST 
SERVICE NAME COURSE NAME EVALUATION 
NUMBER GRADE 
<1354 kim,sam nam infantry @.a.c#234 
25456 park, jae bock infantry o.a.c#234 
~20673 joo,dae joon infantry 0.a.c#234 


Figure 7.8 List education results of each officer. 


4. Select option ”D” to list all officers for promotion test 
This will provide a list of all officers for the promotion test. The following 
screen( Figure 7.9) will appear. In order to use this section you will need the promotion 


year and rank (in the Appendix) exactly. The outputs are shown below( Figure 7.10). 
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LIST ALL OFFICERS FOR FROMOTION TEST. 12/19/86 01:48:24 


List for what rank (or press RETURN to exit) 
(@.g ----> ist lieutenent) 
What is a promotion year?(or press RETURN to exit) 





Figure 7.9 Query to find out all officers for promotion test. 


Page No. 
OL/51/B7 


EIST ALi OFFICERS FOR -ROMOTIGN TEST 


See NAME COMMISSONED FERSONNEL 
NUMBER TYEE ORDER 


Dooat jung,jee ho K.M.AKSS 84-35 
21554 kim,sam nam K.M.AHS3 94-35 


Press any hey to continue... 





Figure 7.10 List all officers for promotion test. 


D. REPORT ( PERSONNEL RECORD CARD ) 

The REPORT function allows you to obtain detailed information of each 
officer's history. You can reach this section by entering a “C” at the main PMS menu. 
You will remain in the REPORTS.PRG untill all of your queries are answered. It will 
then return you to the main PMS menu. The following screen(Figure 7.11) will 
appear. In order to use this section you will need the service numbers exactly as it is 
shown in the data base. A complete list of the service number can be found in the 


Appendix of this thesis. The outputs are shown below( Figure 7.12). 
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12/19/86 01:49:25 


SE SS SS Se SS se SP ss eer ae a= canes —_ _ 
en on oe ee oe eee ee ee oe ee ee ee =2b en SS SoS = —— ae ee ee ee ee ee oe oe oe ee ee ee ee ee ee ee 


\ 
FERSONNEL RECORD CARD. 


List for what service number (or press RETURN to eit) 
(@.g se~-> 21554). 





Figure 7.11 Query to find out personnel record card. 


Fage No. 
Gl/Si/87 


PERSONNEL RECORD CARD 


SERVICE NAME ORIGINAL BRANCH 
NUMBER 


21354 K1im,Ssam nam infantry 





Figure 7.12 Personmel tecormieana: 


E. UPDATE AND EDIT 

The UPDATE and EDIT function allow you to change fields in any file. [t also 
changes any other files that were affected by your changes. I[t is very important that 
you are exact with your changes because the impact of a mistake could have wide 
reaching implications. You can reach this section by entering “D” and “E” for adding 
and changing at the main PMS menu. The update and edit program are almost the 
same. Therefore, This will be an explaination of the EDIT function only. The 


following sub-menu( Figure 7.13) will appear on the screen. 
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EDiTt fGen Sea Na ct “Jee e. OR -D 












eee oy 


A. Edit personal personnel record F. Edit performance evaluation 
BR. Edit expert record record 
C. Edit military education G. Edit assignment record 
result 
D. Edit promotion record I. Change date 
- Edit award and punishment record xX. Return to main menu 













= ele 26 sul@etes 600-0) sl e= =sseceSees c= renee 
seccnoresesuseccunetucssci | [| smesasescsecetenns as 








eerscestsatfant irestetennn cnet estesettesseessticeteseinetastssssrs ss rses INFORMATION reese eee eee sess eer ieee essacratceeitetsttereceriitine sete 
DATE TIME UFDATED BY 


G1/31/87 OFs21t:0Os 






Te a a  —..... o 
eoosscss sSeiscsss sesssesse $2.5 SIS S.Sr5 SOOT SeSSsrsss ES SSESTSSSSIEISSSSE et EE celal ae taed alslLii alse 
Sra eeenss eshamasaurces Seeman ea Remeneriese ss SuTnTeSURee Ss ee ee er Se cees BS cee UOT SMe aR cee eee ornate Lim a 

ser sss tell essss lst ere eee S esse SSS ies asi Plossl sssssserilsriiiassit et sessssss: t.2 ore. 

’ | ze. 

5 : 
| 
| 
| 


a 


Figure 7.13 Submenu for changing personnel records. 


lL. Select option “A” to change personnel records 
This will allow vou to change any fields in the MAIN.DBF file. You must be 
very careful when changing the service number because the other files will be changed 
to this menu value as well as the MAIN file. The following screen(Figure 7.14) will 
appear. You must know the service number. Failure to do so may result in the wrong 
information. After entering the service number, the following screen( Figure 7.13) will 


appear, and then vou may enter new data or change data. 


Ins 


EDIT FERSONNEL RECORD Ois/si/ey Uses sae)7 


qm eee cee et ee ee ee ee ee ec ee ce ee cee ee ee ee ee ce ce ce es ee ee ee ee a ei eee a ee ee ee ee eee aes es os ss er -_ 8 - -Ese es 


Edit for what service number ( or press RETURN to enit) 


Figure 7.14 Query to change personnel records. 


ou 


Ins | 


| EDIT FERSONAL FERSONNEL RECORD 


SERVICE NUMBER 3: ~1554 NAME: haim,.sam nam 
ORIGINAL BRANCH: infantry 


COMMISSION TYFE: t..M.A®#eS BORN DATE:07/21/54 BORN FLACE:chunnam do 


rer ————— re 


CURSOR DELETE RECORD 
Characters: Left Right Characters: DEL Frevirous Record: Fytip 
Word: HOME END Fields: nay Newt Record: FiqgDn 
Field: Up Down Record: “LY Done/Save: “END 


Insert Mode: Ins : Abandon: ESC | 





Figures/.15 Screen forichameine pesseiinelsseconds: 


2. Selection option ”B” to change expert records 
This will allow vou to change any files in. the EXPERT.DBE {lesa 


following screen(Figure 7.16) will appear. You must know the service number and 


expert title, failure to do so may result in the wrong information. After entering the 


service number and expert title, the screen will be displaved as follows( Figure 7.17), 


and then vou mav enter or change data. 


EDIT EXPERT RECORD 


Edit for what service number ( or Press RETURN to exit) 





Figure 7.16 Query to chamoe se pert peeonls: 
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Ine 


oo ee Eker FoR) Rees oe b 


SERVICE NUMBER: 21554 


EXFERT TIITLE: c.p.a 


CURSOR DELETE RECORD 
Character: Left Right Character: Del Frevious Record:FaQUp 
Word: Home &nd Fields SY. Next Records FqgDn 


Field: Up Down Record: ty Done/Save: “End 
Insert Mode: Ins Abandons Esc 





Figure 7.17 Screen for changing expert records. 


3. Select option ”C” to edit military education results 


This allows vou to change military education results. you will see the 


following sub-menu screen( Figure 7.18). 


= Det Mak tC i TAR Y E D6 Rot alee N 


A.Edit military education results 
B.Edit personal education results 
C. Change date 

Seu 


Fe Ooo ees cee ees ee Pee eeeEETT ET EET eE EET e OOS Teer TES TEE EoeE TTS TOO OEE OOO OTE EE EETE E~-eEEEE = 

roskSser seserees es tecrecleccdeescctsescecchesesseesessccrtsccerscrcseeer tri eerreesrelce 
TOTES ECTT STL oT SS TI SST ET eT eee Leet Tie Pe Tee Tee ee ee eT eee Tere eee STS eT Ieee rer Tee eee ere rs 
weenie iene stale Serer csevcscorveceesr re sesvocoge ceserervevessessrsrsreerserevreveurs 


DATE TIME 
12/19/86 O23 5.217 


selection ( A - C, or X to Exit ) 


=e. 
toseits 





Figure 7.18 Submenu for changing military education results. 
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If you select cption “A” from the military education sub-menu, you will see 
the following screen(Figure 7.19). This will allow vou to change any files in the 
M EDUCAT.DBF file. You must know the nuiitary education course name(in 
Appendix) exactly. After entering the course name, the following screen(Figure 7.20) 


Will appear, and then enter or change data. 








EDI® “MILITARY EDUCATION Resuy tS es SS pe ee 


=——— eS a a a a 2 2 ee ee ee Se 2 Se OO OOOO OSS SB OOOO Ow ewe ae eee eS Oe eee ee eee 


Edit tor what class mame ( sor press SETURN to exit) 





Figure 7.19 Querv to change mulitarv education results. 


Ins 
E2D" 1 T MIL YT T AR ¥ EDUCATION RE Souci T 
COURSE NAME: infantry o.a.c#it4 CLASS SIi1ZE: Pc 
START DATE: 06/01/82 END DATE: 11/720/82 


SCHOOL NAME: army infantry school MEAN POINT OF CLASS: 982.50 
RECORD 
Frevious Record:FugUp 
Nest Records Fohry 
Done/save: END 
Abendons: Esc 


CURSOR DELETE 
Character: Left Right Cheracter: Del 


Words Home End Fields Y 
Field: Up Down Fecord ul 
Insert Mode: Ins 





Figure 7.20 Screen for changing mmulitary educamon results: 
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If you select option “B” from the mulitarv education sub-menu, vou will see 
the following screen(Figure 7.21). This wili aliow vou to add and change anv ftelds tn 
the EDLUCATMN.DBF. vou must know the military education course name and 
service number (in Appendix) exactly. After entering the course name and service 


meaieer. the following screen(Figure 7.22) will appear on the screen, and then you may 


enter or change data. 


{12/19/86 O23:24320 


EDIT FERSONAL EDUCATION RESULT 


Edit for what service number 


Edit for what class name 
( or press RETURN to exit) 





Figure 7.21 Queries to change personal education result. 


Ins 


Seer ) tol Ft A RY E Du ea tT £ aon RE SULT 


SERVICE NUMBER: 21554 : COURSE NAME: intantry o.a.c#254 
GRADE: outstanding MEAN: 7s. 20 
(@.9 --> outstanding) 


CURSOR DELETE RECORD 


Character: Left Right Character: Freviowus Record:Foup 
Next Record: Eg Dn 


Dones Save: End 
Abandons Esc 


Word: Home End Field: 
Field: Up Dawn Records: 
Insert Mode: Ins 





-~ 


Figure /. Screen for changing personal education results. 


tu 
t 
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4. Select option ”D” to change the promotion records 


you will see the following sub-menu screen(Figure 7.23). 


8882008 SCOR ETE9 OOO DO Hs s Fees ese + SOS SEOs OOOO THO OOS EDOD OOO SOOO SOS OOe! s 0000s oesBP OSes 88eeeee 
ROCCO OH SH OSS Oe OHH OHH SOSH OSH SST OHSS OH OH SS STSOOOSS SHH = SOS SESE SSO! SESE aR SOSSE HH OSS ts® 


BU tee tees eet e trae eee c sree ces rire ss oser ites il ssis is 








A.Edit promotion retord 
B.Edi:t personal promotion record 
C.Change date 

Aoeyae 







roe er reer re rr rer ee 
sere eee eee en rarer eres ent Gers tienes Er eEnn sees Ear sn Genser OSes OSerresesen= seseSOnons 


UFDATED BY 









DATE 
l=719/S6 





ert errr e terry Ieee re 
Sort ieslegeesesecees es. =6P || UE om te gee Ow Sei am Fe sw aeelUlCOLfleslU OW el OK Ow | Ue rt OR lll whl tee STE 
sees css ersi terres sss lcm 00lUm E00 SR De te a I em ee FE 
Sse: 


Figure 7.23 Submenu for changing promotion records. 


If you select option “A” from the above sub-menu, you will see the following 
screen(Figure 7.24). This will allow you to add and change any fields in the 
RANK.DBF file You must know the promotion order(in Appendix) exactly. After 
entering the promotion order, the following screen(Figure 7.25) will appear, and then 


enter data or change data. 


EXIT PROMOTION R=ECORC 12739/86 Osc; 213% 


eg ge gmt ee ei See ee ee er ei ec ee ee ee ee ee ee ee Se SS SS SS SS eS 


Edit for what promotion order ( or press RETURN to exit? 





Figure 7.24 Query to change promotion record. 


Ins 


6 Oats. 7. eR OSM eli tt Sen Af Se oe 
FROMOTION ORDER: 77-335 army 


RANK s ={nd lieutenant DATE: OS/ 28/7 7 


CURSOR DELETE RECORD 
Character: Left Right Characters: Frevious Record:Folip 
Word: Home End Field: Newt Records Fgln 


Field: Up Down Record Done/save?: END 
Insert Mode: Ins Abandon: Esc 





Figure 7.25 Screen for changing for promotion record. 


If vou select option “B” from the add and edit promotion record sub-menu, 
you will see the following screen(Figure 7.26). This will allow vou to add and edit any 
fields in the PROMOTE.DBF. You must know the service number and promotion 
order (in Appendix) exactly. After entering the service number and promotion order, 


the following screen( Figure 7.27) will appear, and then you may enter or change data. 
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EDIT PERSONAL PROMOTION RECCRD LS/i9/26 G2ssS725 


Edit for what service number . 


Edit for what promotion order 
( or oress RETURN to exit) 





Figure 7.26 Queries to change personal promotion record. 


EDIT FERSONAL PROMOTION RECORD. 


Semv Ce ONUMEE Rs at eel 


PROMOTION ORDER: 77-25 army 


CURSOR ys a ps RECORD 
Character: Left Right Character: Del Previous Record:©qUo 
Word: Home nd Fields oy Next Records: 


Fiela: Uo Down Pecords “ts Done/Save: 
Insert Moce: Ins Abandon: 





Figure 7.27 Screen for changing personal promotion record. 


5. Select option “E” to change award and punishment records 

This will allow you to change award and punishment records. The following 
sub-menu screen( Figure 7.28) will appear on the screen. 
If vou select option “A” from the award and punishment sub-menu, you will 

see the following screen( Figure 7.29). This will allow you to add and change any fields 


in the A_P_P.DBF vou must know the award and punishment name (in Appendix) 
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! EDIT GWSRD FUNISHMENT REECRD | 


BeEdit award and punisnment record 


C.Edit personal award and punisnment record 
D.Change date. 
Meee 





| 
| 
A.Edit award and punisnment points ee 
| 


fH DATE TIME UPDATED BY # 
#{ 12/19/86 02:27:54 i 


; € Enter s@election ( A - D. or X to Exit ) 3: 3 








Figure 7.28 -Submenu for changing award and punishment records.. 


exactly. After entering the award and punishment name, the following screen 


(Figure 7.50) will appear, and then vou may enter or change data. 


EDIT AWARD AND FUNISHMENT FOINT : 12/19/86 02:42:48 


oS ee ee ee ee ee ee eo ee ee 





Sa ee ee ee ee ee ee oo ae Se 





Edit for wnat tind of award and punisnmment 
( or aress RETURN to evit) 


Figure 7.29 Querv to change award and punishment points. 
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AWARD AND PUNISHMENT NAME: army commander awarding 


ASSIGNED POINT 125 






CURSOR DELETE RECORD 
Character: Left Right Character: Dei Previous Record:FuUte 
Word: Wome Ena Fields may Next Record: FgDn 
Frald: Up Down Record: “tu Done/Sava: “End 
Insert Mode: Ins Abandon: Esc 











Figure 7.50 Screen for changing award and punishment points. 


If vou select option “B” from the award and punishment sub-menu, you will 
see the following screen( Figure 7.31). This will allow vou to add and edit anv fields in 
AWARDPUN.DBF file. You must know the personnel order (in Appendix) exactly. 


After entering the personnel order, the following screen(Figure 7.32) will appear, and 


then vou may enter or change data. 


EDIT SWARD AND PUNISHMENT RECORD 12/19/85 02:44:12 


ao = — ap ee ee oe ee ee i es ee ee ee ee ee ee ee ee ee oe eee eee 








aw SS ee ee 


Edit for what personnel order 
( or press RETURN to exit) 


Figure 7.31 Query to change award and punishment record.. 
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EDIT AWARD AND FUNISHMENT RECORD. 





FERSONNEL ORDER: 77-100 army 
AWARD AND PUNISHMENT NAME: staff of chief awarding 


DATE: OFtaly 77 









CURSOR DECET= RECORD 
Character: Left Right Character: Del Frevious Record:PgUp 
Word: Home End Fields ae Next Fecord: Pgdn 









Field: Up Down Records se Done, Save: “End 
Insert Mode: Ins abandons 








Figure 7.52 Screen for changing award and punishment record. 


If vou select option “A” from the award and punishment sub-menu, vou will 
see the following screen( Figure 7.33). This will allow vou to add and edit anv fields in 
A_P_MN.DBF file. You must know the service number and personnel order(in 
Pwo@emear) exactly. Alter entering the service number and personnel order, the 


following screen(fig 7.54) will appear, and then vou may enter or change data 


EDIT PERSONAL AWARD AND PUNISHMENT RECORD 12/19/86 02:44:29 


LE LS LS eS SS SS SS a SS eS Ee eS SS A a A SS E-Series ES ED 


Edit for what service numoer 


Edit for what personnel order 
( or press RETURN to e1t) 


Figure 7.33 Querv to change personal award and punishment. 
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| EDIT PRSONAL AWARD AND PUNISHMENT RSECCRD | 


SERVICE NUMBER: 1554 


PERSONNEL ORDER: 77=100" army 


CURSOR DELETE RECSRD 
Character: Left Right Character: Del Previous Recard:Fstlp 


Word: Home End Fialds af Next Records P3Dn 
Field: Up Down Record: ~ Done, Save: “tnd 
Insert Mode: Ins mbandons: E<ec 





Figure 7.34 Screen for changing personal award and punishment record. 


6. Select option ”F” to change performance evaluation record 
This will allow vou to add and change any fields in the P_EVAL.DBF file. 
The following screen( Figure 7.35) will appear. 
You must know the service number and evaluation date, failure to do so may 
result in the wrong informaticn. After entering the service number and evaluation 
date. the following screen(Figure 7.36) will appear, and then you may enter or change 


data. 


EDIT FERFORMANCE EVALUATION RECORD 


Edit for what service number . 


Edit for what rating date (e.g----- + 03710/84 
€ or press RETURN to e:1t) O3/10/8 





Figure 7.35 Queries to change performance evaluation records. 
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Oe ee 


EDIT PERFORMANCE EVALUATION RECORD 


' SERVICE NUMBER: XXXXXXXX RATING DATE: 99/99/99 


GRADE: XX 



















CURSOR DELSTE RECSRD 
Character: Left Right Character: Del Previous Record:F 3Up 
Word: Home =nad Field: . oY Next Record: FgDn | 
Field: Up Down Records “ Done/Save: “End | 
Insert Mode: Ins Abandon: Esc 


Figure 7.36 Screen for changing performance evaluation records. 


7. Select option’G” to change the assignment record 
This will allow vou to add and change anv fields in the CAREER.DBF file. 


Mae following screen({Figure 7.57) will appear on the screen. you must know the 


Service number and personnel order (in Appendix) exactly. After entering the service 


number and personnel order, the following screen(Figure 7.38) will appear, and then 


you may enter or change data. 


EDIT FPERSONGL ASSIGNMENT RECORD 12/17/66. 8O0ts e555. 


cme ae ig Se ee eee ee ee eee ee eee ee eee eee ee ee eS Se eae ee 


Edit for what service number . 


Edit for what oersonnel order 
( or press RETURN to exit) 





Figure 7.37 Queries to change personal assignment record. 
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Soi PERSONAL ASSIGNMENT RECCHD 








SERVICE NUMBER: <XXXXXXX PERSONNEL ORDER: XXXXXXXXKXXKXAKXXXXXX 
RANK: XXXXXXXXXXXXXXXXXXXX DUTY TITLE: XXXXXXXXXXXXXXXXXXXX 
START DATE: 99/99/99 END DATE: 99°99 /99 
UNIT XXXXEZXXXXXYXXXXXNXXXXXYXX CLASSIFY: XXXXX DUTY EVALUATION: XX 
CURSOR DELETE t RECORD 
Character: Left Right Character: Del Previous Record:Pauo 
Werd: Home End Fieiaz Y Next Record: Fon 
Field: Up Down Records: “ty Jone. Save: “Ena 
insert Mode: Ins abancons Eec 








Figure 7.38 Screen for changing personal assignment record. 


FL DATA DICTIONARY 

The main menu of the PMS system (OPTION F) allows vou to access tiesdaca 
dictionary. Through the dictionary menu, vou can find out what a variable name 1s 
and how to enter it into the computer (option A), find out the structure of commonly 
used data files (option B), find out where a variable is used in these files and modules 
(option C) and find out other features of the dictionary with an exit back to main PMS 
menu (option D). Bv doing this, vou have more interactive flexibility when using the 
svstem. You must still have some idea about what a variable is named before vou can 
list the file structure and retrieve the exact variable name. The following screen 
(Figure 7.39) alla peare 

1. Select option ”A” to find out element name in the file 

This allows vou to ask questions about element and how they are entered into 

the computer. For example, you know the variable name or at least a few letters of it. 
You will see DO YOU WANT A PRINTOUT? Y OR N If vou desire a nardegae 
printout of the information, vou would ready vour printer at this time and enter a 
capital Y. If vou do not desire a printout. enter N. The information vou will receive 
will be element name, full name, tvpe, frequency of update and comments. If you 
entered a few letters of the name, vou may get several element names and values. All 
of the element names will appear first. then al! of the full names will appear second, 


and so forth. You can then choose the one vou want and get a clean copv of the exact 
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DATA DICTIONARY INQUIRIES 








Ga 


° oe seen canes anna t Bnet eesces seocseree ssnesese- 
© Sectereters coeaed seveeere rs ates ood O00Or FORSer OEE SEeESHSeressee Seeeseseee eee eee eee eee eee ESSE ESC IEEitetat rec tets rciigeis. ease 
aeSciseces Ser Secscrecescecsusesertessssesteesessacunvene seis! srieses |e) crlpeconsegce Cotsscese ses ccos cscs ccccc es oreo se erss cose cees seers someone breenrar se © 7 "8 
Ne eee eee CER AEC SE Rees ERE Se eRe ee anelseren Sees teecsnereestreres tse seco t cess ccc e sec esecsccsrrercesecetesetess Or ceceeaeeetoe ene stoae tee : 
tess ecee ete Srasees Grr cesses sere eserseae Coe on S88 0e wFe Oar bernebocnerss Sen Svvisseereesestoecrsessseeursemeence Tee cc Cesenssemensee oetecsncheT Be i 
sree e tes o srt ccen scree Hees COs ee eee eee HHes SF Sresesgoess Hoeete FHEEsHrHe See se ees es eee c asec cess eo cesscses se scsseucccosasas: ses 
Tes cette eee eee tees sige fee cee esse te eels Beets eee x siissits 
os 
oe . s 
ose 
#33 
333 ° 
ra 
3 
33 
ade 
: 
oe 
. 


~What is 77? and how do I enter it into the comouter 

-What type of information does a particular file contain? 
What file contains a particular variable? 

-Dictionary information. 

.Change date 

Exit 












xmonnwpyD 








DATE UPDATED BY 


Oty 31.787 






Simin f Enter selection ( A - &. or X to Exit > : : 1BRpeguiee 


Figure 7.39 Submenu of data-dictionary. 


Fiem@ene name, if desired. REQUIRED INFORMATIOSN.-- The element name or at 
least a few letters of it. You mav obtain this first through dictionary option 2 if vou 
know what file it is used in. 
2. Select option ”B” to find out used data files 
This allows vou to discover how certain files are structured. The options are 
alphabetic and they represent the commonly used data files in PMS. You will see the 
following screen (Figure 7.40). 
ieemeevi then enter the letter of your selection. If you enter something besides the 
menu options, vou will see the same screen. If you want to leave this portion of the 
dictionary, select the letter for “X”. You will then be asked if vou want a printout. If 
you do, vou ready vour printer at this time, and then enter a capital Y. [f vou do not 
want a printout, type N. 
This option allows you to discover the exact variable names (listed as fields) 
used in a file. 
3. Select option ”C” to find out used modules 
This portion of the dictionary allows you to make queries about where certain 
variables are used throughout PMS. For example, if vou wanted to know where 
CNAME was used, you would enter the variable name (or what you remembered of it) 
fern. ou see PLEASE ENTER THE VARIABLE NAME-- you will then be asked if 
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DATA DICTICNARY A4BCUT DATA FILE STRUCTUFE 


Main file 

- Mrlatary education file 
Personai education file 

- Rank file 

- Promote ile 

- mward and sunisnment recerdas 
Fersonai award and punisnment 

file 


Award and punishment point file: 
Expert file #: 
Persormance evaluation file 
Military careers ‘ile 

File *ile 

Jser file 

Change date 

Return to main menu 


H 

I. 
J. 
Ke 
Le 
mM. 
N 

X. 


DATE Pie 
t2/197586 Of: 48217 


(A -~ N, or X to return to main menu) 





Figure 7.40 Submenu to detect data structure. oe 


you want a printout. I[f you do, ready your printer first, then tvpe a capital Y. If not, 
(“pene 

The information vou receive will list the name of the file or module where it is 
used, then the tvpe (file or module). BE CAREFUL-- If vou listed only a portion of 
the variable name, vou mav get a list of where all the variable names are used. 
However, by judiciously using this option with OPTIONS A and B. vou can have the 
flexibility of discovering where variables are used (OPTION C), the exact variable(field) 
name(OPTION B).and how to enter it into the computer (OPTION A). REQUIRED 
INFORMATIONR-- 

The variable name or at least a few letters of it. You may obtain this first 
through dictionary option B if vou know at least one file in which it is used. 

Each portion of the data dictionary has a menu to assist you in entering the 
required data for vour inquiry. However, if vou find vou can't get out of the dictionary 
for some reason, tvpe HIELP in all capital letters when asked for a variable name. 
Then answer N to the question about wanting a printout. This will allow vou to 
return to the main dictionary menu and then return back to the main PMS menu 
through OPTION Dor OP NOx 
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4. Select option “D” to find out the other features 

This allows you to exit the dictionary menu and return to the main PMS 
menu. Before ieaving the dictionary, it gives you some further information on the files 
that exist in the dictionary. 

Some of the data dictionary files are not accessible by you, and can only be 
accessed by someone having knowledge of DBASE III+. You can also onlv read data 
out of the dictionary: database personnel must add new entries to the dictionary 
through DBASE III +. The primarv reason for this is the fact that most of these files 
contain information generally only used by database personnel. 

Each of the files is shown below with a brief description of what it contains: 

e CONTAINS-- Files which contain elements({ variables) 

e FILE-- Describes the files in PMS. 

e ELEMENT-- The variable names and information about them. 

¢ PROCESSES-- The programs and modules which process the elements and 
files. 

e PROGRAMS-- The programs which control the operations of each of the 
menu options in the PMS system. 

e AUTOFILE-- Describes the auto files in PMS. 

e USER-- Describes the users of PMS. 
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VI. CONCLUSION 


This thesis has focused on application of a data base system for a Republic of 
Korea nulitary personnel management system. In order to reduce expenditures and 
manpower for personnel management and to increase the ability of combat soldiers. it 
is very important for the Korean military to apply the computer system for personnel 
management. Since we use dBASE III+ for application program in this thesis, we 
should use relational data base model. Therefore, we reviewed the basic knowledge 
about a data base system in Chapter II and discussed the general concept of relational 
model in Chapter III. After that, we focused precisely about the design problem of the 
relational model in Chapter [V. In Chapter V, we discussed the practical system 
analysis and relational database design for a Korean Army personnel management 
svstem. In order to maintain and use the data base svstem effectivelv, we discussed the 
relational implementation in Chapter VI. Especially, in Chapter VII. processing 
procedure to access actual program in Appendix A was shown. When we construct a 
data file to access this program we should consider theoretical problems that are 
discussed in Chapter IV. In prototyping personnel data base in this thesis, all data 
items such as career, assignment, education, etc. is based on the Korean army 
personnel record. Because of the military security problem we use artificial sample 
data for prototyping. 

In order to strengthen the readiness of the Korean military under the alert states, 
it iS imperative that personnel management be performed very efficiently. A most 
important consideration in data base development is to store data so that it can be 
used for a wide variety of applications and can be changed quickly and easily. In order 
to perform these functions, the data should be independent and functionally dependent 
on key values. It should also be possible to query the data base to satisfv users 
requirements using application programmer the Database Management System(DBMS) 
itself. These data items should contain useful information for decision makers to 
analyze, plan and manage a personnel organization. However, a data base is the 
interface between people and machines. Data base design 1s a two-phased process. 
This thesis examined both logical and physical data base design process, and this 


process is an iterational process to get closer to an acceptable and optimal design. 
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As it is discussed in Chapter IV, normal forms can be applied to decrease 
inefficiency of the relational data base model in the system design process. Finally, we 
hope this research and sample application can be helpful for Korean military personnel 


management system. 
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APPENDIX B 
PROGRAM 


t. DRIVER.PRG 


KRAEAKKKKKKKKKKKKKKKKKKKKKAKAKKKAKKKAKAKAKKAKKKKKKKKKKAKAAKKAKAKAKAAKKKKKKKAKKKKAKKAKKK 


Module name :DRIVER.PRG 

Author :KIM, SAM NAM 

Bate so Oc. oo 

Purpose :This 1s the DRIVER module for the entire system. 


It queries the user for task selection and calls 
EgemcoumeceaMogule to senvyice thal request. 
When control is returned from the calling module 
Pdem@iscehels dackead 12 more Intonmatien 15 required. 
Reeves wen cienecthe pmocess 1s mepedtea,, else, the 
Program terminates. 
Called by : DRIVER is called at system startup 
Pedules called :MENUSCR,TABLE,LISTING, REPORTS, UPDATE,EDIT,DICT 
Variables used : | 
Global : 1 : holds the value of the user input. 
today: holds date 


Local : none ° 
KKEKKKKKKKKKRKKE KKK RARER ERE RRR KER REKERKKKR RARER KK KEKE KKKRKRRRKKKRERKRERE 


* Set Up loop for presenting menu. 
KAAKKAAKAKKAKRK KKK AK RK KARKRAARERER RK RA REKKRARAAKAKKAKKKRAKRARAKKAKKKKA RAK 


*Close all open files 
LL 


4 A HO A OO OHHH 


wooo ------ Set working working environment 

Seal TALK OFF 

SeleeoCAPE OFF 

SEi-SELL OFF 

SHlenEADING OFF 

Toten ewe OFF 

SET MENU OFF 

Spear lyY OFF 

SET STATUS OFF 


==——~~~ ~~ Create underline variable, Uline. 
uline=REPLICATE ("_"', 80 | 
Ke mne------ Create memory variable for today's date. 


today=DATE ( ) | 
KAKERAKAKARRAKKKKKKAKKAKRKAAKKKARAKKARARAAKARARAKAKRARAAKRKARRKA KARR AAA 
* This sets up the CRASH.TXT file which records ali actions so _ | 
* that if the system crashes, the data base can be recreated. This 
* file is deleted if the system terminates normally. 
KARR RAAKAKAARARK RA RARKKAAKK RA AA AAA ARK RRRRRAKAKAKR RR AR AKKKKRARARARARARKK 
SET ALTE TO CRASH 
SET ALTE ON 
DO WHILE .T. | 

* DO WHILE .T. means DO WHILE TRUE i.e. DO FOREVER 

* The DO WHILE will be terminated by an EXIT command 

* Clear the screan and display the main menu 


CLEAR 

DO MENUSCR 

fmemesny " OF FICER Peano on Oelen  laiteA eN Ae G or) ri 
@ 2,62 SAY "E N T! 

@ 6,36 SAY "MENU" 

@19,33 SAY "INFORMATION" 

@ 8,12 SAY "A. PERSONNEL ALLOTMENT TABLE." 

@ 9,12 SAY "B. LISTING." — | | 
GB10,15 SAY " ony query that requires a listing or information" 
(mieeiz SAY "C. EPORT(personal Fecora card)" 

elec oar "'D. UPDATE." 

Getoria say "E. E sul 

@14,12 SAY "F. DICTIONARY.!"! 
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DO WHILE i=0 
i=INKEY() 
@ 21,19 SAY TIME() 


@ 23,54 SAY 


IF UPPER(CHR(i))S"ABCDEFGX" 
EXIT 
ENDIF 


1=0 
ENDDO 


@ 23,54 SAY UPPER(CHR(i)) 
IF .NOT. CHR(i)$"Gg"' 
EXIT 


SVOTR 


SET COLOR TO N/W 

@ 19,33 SAY "INFORMATION! 

@ 15,12 SAY "G. CHANGE DATE." 
SET COLOR T0070 


se a > 


Oom~a 


Gat -eoday, 


SAY today 
on ce SAY "INFORMATION" 
158,12 SAY "G. CHANGE DATE." 


Gres o47 SAY 


ENDDO 
DO CASE 


CASE VGHRiagicmec) 
RELEASE 1, today 
Sha latino!) 


SET 
SET 
SE 1 
SET 
Si 
SE 
Sel 


ESCAPE ON 
BELL ON 
HEADING ON 
HELP ON 
MENU ON 
SAFETY ON 
STATUS ON 


CLEAR 
RETURN 
CASE CHR(i)S"Aa" 
DO TABLE 
CASE CHR(i)S"Bb!! 
pO LISTING 
CASE CHR(i)8"'Cc" 
DO REPORTS 
CASE CHR(1)$"Dd'!! 
DO UPDATE 
CASE Sant Pneel 


DO EDIT 
CASE GHR(i)S"FE" 
DO DICT 


ENDCASE 
ENDDO 
SE ere OFF 
CLEAR ALL 
CLOSE ALTE 


ERASE CRASH. TAT 


De as ces cas ae ee eee 


RETURN 


when done,return to malin menu 
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a. MENUSCR.PRG 


KRAKRAKKKKAKARKRKAKAKRARKKKKKKREKAKKRKKKRKKKRKKRKKRKRERKRKRKRRRKRRKAARKRARKKKRRERKRRAKARKKERE 


MADAM DADADAANDAIADADAIAN AD VA ANADAANADADAIADADANI ANAND AAPDAAANAADAADA DD 4 + ‘ Ob OO A Oe Ob 


Module name : MENUSCR.PRG 


Author : KIM, SAM NAM 
Date : 30 OCT 86 
Purpose >: Menu screen 
Mocules called : None 
Variables used : Local : none 


Grobal : today : holds date 
" SEUESEEL fl oellali plait RARKAKAKAKARARKARKAKAKAKKAKAKKARKARKAKA 


up presenting menu. 
Be ARRAS RRARAKKKKREAKKKAKKAKKAKKAAKAAKRAKKAAAAKAKARAAAARAAKKRRRE 
imo TO 63,69 
4,1 TO 24,77 DOUBLE 

eee O) 17,75 

ocd) £0 7 , 46~D0UBLE 

Ome SAY SPACE(15) 

im ee lO 22,75 

mer 50 TO 20, 46 DOUBLE 
Bee) SAY SPACE(15 ) 

Se REPLICATE (CHR(176) ,28) 
SAY CHR(176 

SAY CHR(176 

SAY CHR( 176 

SAY CHR(176 

SAY CHR(176, 

Sac CHR(176 

SAY CHR(176 

Sacre CHk( 176 

BAY ecHR( 176 

SAY CHR( 176 

SAY CHR(176 

SAY CHR(176, 

SAY REPLICATE(CHR(176),28) 
pax CHR( 176 

BAve CHR( 176 

BAY CHR(176 

Bay CHR(176 

SAY REPLICATE(CHR(176),75) 
@25779 SAY CHR(176 

mee? SAY CHR(176 

meee? o SAY CHR(176 

i370 SAY CHR(176 

18,47 SAY REPLICATE(CHR(176) ,30) 
iweeto SAY CHR(176 

me,/6 SAY CHR(176 

io26 SAY CHR(176 

ee 7G SAY CHR(1756 

ins, ?0 SAY CHR(176 

ime ?o SAY CHR(176 

ime eo SAY CHR(176 

ime? SAY CHRA¢ 176 

oe 76 SAY CHR(176 

ero SAY CHR(176 

fe7o SAY CHR(176 

gme?G SAY CHR(176 

5,47 SAY see eect Te); 30) 
19,33 SAY "INFORMATION" 

Z0ee SAY "DATE TPE. 
Cope S SAY "UPDATED BY" 

21,5 SAY today 

21,19 SAY TIME() 


NPR RRR RRO OND Me 


rPOW OANA MN PWHFr-O~ ~ ~ + ~~ 
~ ~*~ es ey es * * ~*~ ~*~ ~ ~*~ ~ PAQONIDINND~ 


NNMNNNNNNNNNNNA bo 


F@ 21,52 SAY gname 
RETURN 
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2 TASLE.PRG 


MAARRAKREKKAREAKEKRKRARKKKKRKREERKRKRKKEKKKKRKKRKAKKKEKRKKKAKKKKAKAKRKRERERAKKAKKR 


Module name :TABLE.FRG 

Author :KIM, SAM Nam 

Date :1 DEC 26 

Purpose :This is the DRIVER module for personnel allotment. 
Wnen control is returned from the called module 
the user is asked 1f more information is required 
and the process 15 repeated, or control is passed 
back to the DRIVER module. 

Called by : DRIVER 

Modules =caitted =HENUsScer 

Variables used : _ 

Global : i: holds the value of the user input. 
today: holds date 


Local : none 
KAEEKEKKKEKKRAKRRKKERKRARKARKEREREKKRAKKRRKRREKRAEKREKREREKEKRRAKKRKKEREKAKKRKKARK 


* Set up allotment table. 
RAAKKKKKKAKRARKAKAKKA 
CLEAR 
DO WHILE. 1. 
CLEAR 
DO MENUSCR 
2,15 SAY 'P ER S OeN oie bok LL OO) Deere ee 
6,35 SAYS Taeia 
19,33 SAY "INFORMATION" 
10,18 SAY “COMPANY GRADE ObEIGER- 4 
il jis SAY “FIELD GRADE OF Phen. | 
12,18 SAY "GENERAL GRADE OFFICER:" 
[ae Lomsa ye eel Orae : 
16,18 SAY "**x* XK, Return to main menu ****x" 
2072 Say a Date TINE 
207 5 on UP DEED aan! 
Zies Shy today 
@ 21,19 SAY TIHE() 
x @ 2h So ooeeoname | 
23, LOV Saves Enter “(to exis | | 
SE member INDEX member 
FIND warrent officer 
COUNT WHILE ranks = “warrent offiéen’°rOmma 
ETDS 2nceeret ce nen 
COUNT WHILE ranks = "2nd lieutenent" TO xx2 
BIND) TS eereucenenc 
COUNT WHILE ranks = "1st lieutenent" TO xx3 
FIND captain 
COUNT WHILE ranks 
FIND major 
COUNT WHILE ranks = “Major! 20 e> 
FIND lieutenent colonel 
COUNT WHILE ranks = "lieutenent colonel" TO xx6 
FIND colonel 
COUNT WHILE ranks = '"colonel”™ TO xx7 
FIND brigader general 
COUNT WHILE ranks = "brigader general” [Ours 
FIND major general 
COUNT WHILE ranks = " major general" TO xx9 
FIND lieutenent general 
COUNT WHILE ranks = "lieutenent general" TO xx10 
FIND general 
COUNT WHILE ranks = "general" TO xxl1l 
company = xxl + xXx2 + XxX3 + xx4 
field = xx5 + Xx6 + xx7 
gener = xx& + £x9 + xKIO8t “xit 
addsum = company + field + gener 
@ 10,45 SAY company 
QPli (4s SsAverield 
@ 12,45 SAY gener 
@ 14,45 SAY addsum 


4 OA Aaa AH 


WMAVDAAAAAOAM a 


Gm 


"captain" TO xx4 
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DO NHILE .T. 
ist 
DO WHILE i=0 
L=INKEY() 
@ 21,19 SAY TIME() 
a iit 


23,54 SAY "! 
If UPFER(CHR(i))$"x" 
EXIT 


ENDIF 
1=0 
ENDDO . 
@ 23,54 SAY UPPER (CHR(i) ) 
Be ee NOLo Gama) Ss" | 
EXIT 
ENDIF 
READ 
ENDDO 
DO CASE 
CASE CHR(i)S "Xx"! 


CLEAR 
CLOSE DATABASES 
RETURN 

ENDCASE 

0 


aw een enn eee when done,return to main menu 


3.  LISTING.PRG 


KKRAKKKKAKRKKKRKRARKKKRKKAREKRRRAKKKAKRKRKKAKRRKRKKRKRKKKRKRKKKKKKRRKRKRAKRKRKRKAKRKAKRKRKAKRKKA 


Module name :LISTING.PRG 

Author :PARK, JAE BOCK 

Date ov eeSo at 

Purpose :This 1s the DRIVER module for the listing system. 


It queries the user for task selection and calls the 
required modules. 
When control is returned from the called module, 
the user is asked if more information is required 
and the process is repeated, or control is passed 
back to the DRIVER module. 
Called by : DRIVER 
Modules called :MENUSCR, L_ALL, L_ASSIGN, L_EDUCAT, L_PROMOT 
Variables used : 
Global : 1 : holds the value of the user input. 
today: holds date 


Loca : none 
KAKKRKKKKKKKKKRKAKKKR RRR REKAKKAKRKKK KKK KKAKRKKKKKK KKK KRKKKRKKKKKKKKAKKE 


4 HH HHH 


* Set up loop for presenting menu. 
KAKAKKKAKAAKKKARKARKAKKRAKAKRAKARKAKR RA RARERRAAAKAKARAAAKAKAKKAAKARKKKAKKKA 
CLEAR 
PeeralLeE .T. 

CLEAR 

BO MENUSCR 

Weeeee SAY "LISTING " 

@ 6,34 SAY "SUBMENU" 

© 19,33 SAY "INFORMATION" _ 

Ome, SAY ‘A. List all officers." 

Peeee oa: 6b. List all new officers for assignment." 

Smeerezecay 'C. List all officers educated. ' 

pmlelcesay “D. List all officers for promotion test." 

emuclerooe 'R. Change date" 

; Daa SAY Uk. Return to main menu! 

Wopoal OLALE 
; ee” Stas ae ae Bia 
ro: .S oday 
@ 21,19 SAY TIME() 
* @ 21,55 SAY gname . 
3 eto Save" | Enter selection (.A = E, or X to exit ) s : |" 
0 Tye ats 


1 


1=0 
DO WEILE 1i=0 


i=INKEY() 
@ 21,19 SAY TIME() 
@ 23,54 SAY "" 
IF UPPER(CHR(i))$"ASCDEX" 
EXIT 
ENDIF : 
=0 
ENDDO 
G23 54 SAY UPPER (CHR(i)) 
IF .NOT. CHR(i)$"Ee" 
Exner 
ENDIF 


SET COLOR TO N/W 
@19,33 SAY "INFORMATION" 
@i12,12 SaY "E. CHANGE DATE" 
SET COLOR TO W/N 
@ 21,5 GET today 
READ 
@ 21,5 SAY toda 
@19,33 SAY "INFORMATION" 
@12,12 SAY "E. Change date" 
@ 23,54 SAY " " 

ENDDO 

DO CASE | 
CASE CHR(i)S "Xx" 7 ‘ 

CLEAR 


RETURN 
CASE CHR(i)$"aa" 
DOL ume 


EESE GAR) s"Bb" 
DO L GN 
CASE cae (i) sce" 
DO L_EDUCAT 
CASE CHR(i)S"'Dd" 
DO L_PROMOT 
Pa 


were een nn when done,return to main menu 
RETURN 
a. LALL.PRG 


KRAKKKKKRKAKKKKKKKAKKKKAKKKKKKKAKKKKKKKKKKAKKKKKRKKKRKAKKKKRKKKKRAKAKKKAKKKKAKAKKKK 


* Module name :L_ALL.PRG 
* Author :KIM, SAM NAM 
* Date ‘le DEG So 
* Purpose :This module provides the listing service required 
* to list all members. 
* Called by : LISTING 
x Modules called : none 
* Variables used : 
* Global : none 
* Local : park : holds values of user answer. 
SAE ae RARAKARRAARARRH RAR IK AAA RIOR AT TOR RRR 
- Set up loop for presenting menu. 
AHR IR IAAI IR SEI TT Oe ER EU ARR AKER AAA R RAR A ARAM 
CLEAR 
SET TALK OFF 
alice = geil 


ark = SPACE(1) 
ates SAY "Send data to printer ? (Y/N)" GET park 


SELECT 1 

USE main INDEX MAIN 

SELHGT ez 

USE member 

JOIN WITH main TO all FOR sns = A->sn ; 

FIELDS ranks,sns,A->name,A->c_type,org_ ‘branch »p_order 


rae 


USE all 

ie part = “y" 
SET PRINT ON 
LIST ranks,sns,name,c_type 
SET PRINT OFF 


' LIST ranks,sns,name,c_type 
ENDIF 


WAIT 

CLOSE DATABASES 
KRewecrrnr-n-- when done,return to malin menu. 
RET 


URN 
b. L_ASSIGN.PRG 


REERKAKARKARARRAARKRKARERRARERERARKARARKARRARRRARAKRRRAKARARRRAAAKRRAARAKRRRAKARRRARRAARRR 


* Module name :L_ASSIGN.PRG 

* Author :PARK, JAE BOCK 

* Date :1 DEC 86 | - 

* Purpose Wise tomes nowt NG emodl Lewronretne soieming system. 
a This module is used who the user requires a new 
* officers list for assignment. 

* Called by : LISTING 

eeodiles called : 

* Variables used : | 

* Global : today: holds date 

a - Local : rank : holds the values of the user input, 

* accept the military rank. : : 

ss order: holds the values of the user input, 


accepts the personnel order. 
RARKKARAAAAAKRAAKARKKAKAKKAKAKKKARAKAARAAKAKARAKK AK AK AARKAR RAR RAKKRAARAARAKRAKRKE 


* Set up loop for presenting menu. 
RRAKRKKARKKKKARKAKRKARKKAKKRKKRKAKAKK KKK ARARKRARKARARKAAKAKAKKRKAARAKKAKKKAKRK 
CLEAR 
USE all INDEX p_all 
rank = "x" 
order = 'x!! 
BeeyniLE order #" " .OR. rank # " " 
Rewewrccccren Find out the personnel order and rank. 
CLEAR 
(52,1 SAY "LIST ALL NEW OFFICERS' RECORD" 
@ 2,60 SAY toda 
@2,70 SAY TIME() 
¢ 3,0 SAY ULINE 
? 
¢ 5,0 CLEAR 


weer rerre-- Get proposed pesonnel order and rank. 
order = SPACE(20) 

rank = SPACE(20) 

eS, i "List for what personnel order( or press RETURN; 
mores1t 

ae? SAY "( e.g ----- > 86-35 ARMY )" GET order 


A 
@ 17,5 SAY "List for what rank (or press RETURN to exit)'! 
@18,5 SAY "(e.g ----> lst lieutenent)" GET rank 
READ 


order = order + rank 
order = lower(order) 


SEEK order 
DO CASE 
CASE order = " " 
CLEAR 
CASE FOUND() 
@ 5,0 CLEAR | 
StCkae | SOuYN printer 
GerSe lomsaY “Send tePprinter °@Y/N) . wecere iN PET 1" 
READ 
Reww--- Set up printer macro. 
TF YN = "yn 
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Printer = "TO PRINT" 
ENDiF ; 
Sas FORM r_assi FOR p_crder + ranks = order &printer 
CASE .NOT. FOUND() 
CLEAR 
@17,5 SAY " There is no " + order 
@ 24,5 SAY "PRESS ANY KEY TO TRY AGAIN.....'! 


? CHR(7) 
WAIT 1 o0 
ENDCASE 
ENDDO Le 
Reoean- When done, return to listing menu. 
RETURN 


c. L_LEDUCAT.PRG 


RREEREKRERRRERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRE 


* Module name :L_EDUCAT.PRG 
a Auer :PARK, JAE BOCK 
* Date :1 DEC 86 or 
« Purpose sThis is the LISTING modute Stor stmemrisrang Sate 
a This module is used when the Usem requires the Tse 
x of officers educated in a particular courses. 
* Called by fel LING , 
* Modules called :none 
* Variables used 
A Local : names : holds the value of the user input. 
* acceptable values : military education course name. 
“3 Global: today: holds date 
RRAARAKAARKRAKAKRAAKKARARAKRAKARRAKRRRAK RARE RREAKAKAAKAARKRAKRARRERKAKR KEK 
= Seb Up LOopmeOG presentin menu. 
KRARAKAKARKARAKK KKK RAR KAA RKA RAK AKA RAKRERAEAK ARK AKAKRKEK RAK RARAKRARKRKR 
CLEAR 
USE j_educat INDEX j_educat 
names='"'x" 
DO WHILE names # " * 
oe Find out what course name to list. 
CLEAR 


@2,60 SAY today 
G2, 70 SAY TIME() 
g 3, 0 °SAaY UETE 
> 


ken ano------ Get proposed course name. 

names = SPACE(20) 

Cas ene "List for what course name( or press RETURN; 
LOren ie 

eae SAY "( e.g -->INFANTRY 0.A.C#234 )" GET names 
names = lower(names) 

SEEK names 


DO CASE 
CASE names = "" 
CLEAR 
CASE FOUND() 
@ 5,0 CLEAR . 
STORE  -* [Op wieeinte rs 
ee SAY “Send €0 printer =e... W'GET YNewedeT ia 
Rae a Set up printer macro. 
Lee = My" 
Printer ==-"TORERINGT. 
ENDIF . 
eRe FORM r_educat FOR cname = names &printer 
A 
CASE .NOT. FOUND() 
CLEAR 


@17,5 SAY " There is no " + names 
@ 24,5 SAY "PRESS ANY KEY TO TRY AGAthN.....” 
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WAIT " 
ENDCASE 
ENDDO ete 
onnn-- When done, return to listing menu. 
RETURN 


d. L_PROMOT.PRG . 


KAAKEKKAKRKAKKARKKRKKKRKRKRKRARKKAARAKRRRRRRRRKRRARKRRKRARKRRRRRKRRARKRARRRKARRAKKKKK 


Module name :L_PROMOT.PRG 

Author :PARK, JAE BOCK 

Date ee DR ewe6 Ya 

Purpose fins 15 ene LISTING module for the listing system. 


This module is used when the user requires the 
officers list for promotion test. 

Called by : LISTING 

Modules called : 

Variables used : 

Local : rank: holds the value of the user input, 

acceptable values: military rank. 
year: holds the value of the user input, 
acceptable values: promotion year. 

Global : today : holds the date 
KAAKKKAKKKKKKARKKAKKKAAARAKKKRAKARAK KAKA RAR RAKRAKRARRAARKAARKRAARKKRRRRE 
x Set Up loop for presenting menu. 
KKAKKKAKKKKKRAKAKKAKKAKERAARARRAKKAAKKKRAKAAKAKRARAARAKAKKARARKAARAKARKKER 


A Oe Ok OO Ob Ob Ob Ob OO A OO 


CLEAR 
Mse all INDEX r_all 


rank = "x! 

ears =x"! 

O WHILE rank #" " .OR. years # " " . 
Rewer nwoccron- Find out rank and promotion year. 
CLEAR 


@ 2,1 SAY "LIST ALL OFFICERS FOR PROMOTION TEST." 
2,60 SAY toda 

2°70 SAY TIME?) 

3,0 SAY ULINE 


22---------- Get proposed and rank. 
rank = ee 
ears = SPACE(2 


15,5 SAY "List for what rank (or press RETURN to exit)" 
@16,5 SAY "(e.g ----> lst Mencencane GET rank 
READ 
@i7,5 SAY "What is a promotion year?(or press RETURN to exit)" 
@18,5 SAY "(e.g sere rcenreccccccena---- > 82)" GET years 
READ 


rank = LOWER( rank) 
ears = LOWER(years) 


EEK rank 
DO CASE 
CASE rank =" " ,OR. years = " " 
CLEAR 
CASE FOUND() 
@ 5,0 CLEAR | 
Ones. LO UN, printer. 
@ 15,15 SAY "Send to printer ?(¥/N). " GET YN PICT "!" 
READ 
Keswece Set up printer macro. 
IF YN = "Y" 
Printer = "TO PRINT" 
ENDIF 


REPORT FORM r_promote FOR; . 
femiks) = cank .AND. SUBSTR(p_order,1,2) <= years &printer 
WAIT 
CASE .NOT. FOUND() 
CLEAR 
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@i7,5 SAY " Therese ne " + rank 
@ 24,5 SAY "PRESS ANY KEY TC TRY AGAIN....."! 
a CHR (7 ) 
Venue 
ENDCASE 
ENDDO _ 
------ When done, return to listing menu. 
RETURN 


4. REPORTS.PRG 


RREKKRAKKKRKAKKKRARKKRARRKKRRRKARKRKRRKKRRKAKKAKRKRAKRRRKKRRRARKRKRKRAKRKRARKRRRKKRRARRKRRARRRA 


* Module name :REPORTS.PRG 
x Author :PARK, JAE BOCK 
* Date :1 DEC 86 
* Purpose :This 1s the DRIVER module for tne wresortssyctem: 
a This module is used when the User requires tie 
2 personnel record card. 
* Called by : DRIVER 
x Modules called : none 
* Variables used : 
~ Global : today: holds date 
x Local : none 
KAAKKAKARKKKAKKKKKKAAKRAKKARRKKRARAKAKAKKARARKRARARAKKAARAARARARARKARRARARE 
x Set Up loop for presenting menu. 
KRAKKAKARKKRKRKAKK RK AARKRKRERAARKR ARK RAAKRKARARARARARKERAARKARARARKAKRAKARARR 
CLEAR 
USE all INDEX all 
msn = Wey ll 
DO WHILE msn #" " | 
Reaaecncoren= Find out service number. - 
CLEAR 
@ 2,1 SAY "PERSONNEL RECORD CARD." 
@ 2,60 SAY toda 
@2,70 SAY TIME?) 
¢ S08 SAY -UbENE 
z 
@ 5,0 CLEAR | 
Renccaconace Get proposed service number. 
msn = SPACE (8) . 
@15,5 SAY "List for what service number (or press RETURN to exit)" 
@16,5 SAY "(e.g -e-r2> 21554) " GET msn 
READ 
msn = LOWER(msn) 
SEEK msn 
DO CASE 
CASE msn = " !! 
CLEAR 
CASE FOUND() 
@ 5,0 CLEAR | | 
ACCEPT "Send to printer ?(Y/N)." TO printer 
(aaa aesee up printer 
ERS SrnGer., ain 
SEL PRINT on 
ENDIF 
CLEAR 
REPORT FORM rreport FOR sns = msn 
WAIT fi oo 
USE EXPERT 


@ 24,5 SAY EAE Ree eas 

LiIsT expertitle FOR sn=msn 

WAIT ' " 

USE careers INDEX careers 

SEEK msn 

REPORT FORM r_career FOR sn=msn 
USE p_eval INDEX p_eval 

SEEK msn 
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REPORT FCRM r_eval FOR sn=msn 

WAIT i 

SSLECi 1 

USE rank 

SEGGCT 

USE cremote INDEX promote 

JOIN WITH rank TO temp FOR p_order=A->p_order FIELDS A->ranks,; 
A->tdate,p_order,sn 


USE ae 

INDEX ON p_order TO p_temp 

CLEAR 

5,5 car "RANK PROMOTION PROMOTION" 
Gimeno SAY " DATE ORDER " 


LIST FOR sn=msn 

CLOSE DATABASES 

WAIT it | 

SELECT “3 

USE awardpun 

SE a. : INDEX 

SE aep inn A ap mn 
aT 


JOIN H awardpun TO temp FOR p_order=C->p_order FIELDS C->kind,; 
p_order,C->tdate,sn 

USE ponp 

INDEX ON p_order TO p_temp 

CLEAR 


@5,5 SAY " KIND OF AWARD PERSONNEL ORDER DATE! 
@6,5 SAY " AND PUNISHMENT y 
LIST FOR sn=msn 

WAIT " ! 


CASE .NOT. FOUND() 
CLEAR | 
Golgeemcay | There is no " + msn 
Ce 24eoecar “PRESS ANY KEY TO TRY AGAIN..... . 
? CHR(7) 
WAIT i 
ENDCASE 
ENDDO 
Raw n am When done, return to listing menu. 
RETURN 


5. UPDATE.PRG 


RARKKRRRKEKKRKRKRKKRKAKKRRRRRARRKEKRRRKRRKRRRKRKRKKKRKKRKRKERKERKEKRRRKRRKRRRKRRKKKRRAKRERER 


* Module name :UPDATE.PRG 

* Author :KIM, SAM NAM 

*x Date 720 coc 36 

* Purpose :This 1s the DRIVER module for the update function. 
* It sets up the main update menu, accepts input 

* from the user and calls the required modules. 

- When control is returned from the called module, 

x the user is asked if more information is required 
* and the process is repeated, or control is passed 
x back to the DRIVER module. 

* Called by : DRIVER 

* Modules called :MENUSCR, UPMAIN, UPEXPERT, UPEDUCAT, UPPROMOT, 
* UP_AW_PU, MAINTAIN, UPEVAL, UPCAREER 

* Variables used : | 

25 Global : i: holds the value of the user input. 

x today: holds date 

x ocal 


Ie : none 
KKRAKRKEKKKKRERRKKRRKRRRRRRRAKKRRERKEKEKRRRERRREKRKREERRKERREREKRREREKRKKKKKKKRE 


Soma Loop) for presenting menu. 
RAEKKKKAKARKKARKKKARARKRAKAKARAKEA AKA RERARRKKEKRKRKKKRAKKRARERARKARKKRKK KKK 


+ 


CLEAR 
DOeWHILE .T. 
CLEAR 
DO MENUSCR 


@2,14 SAY "UPDATE Pee Re oeCaN Nees Reeeeeeoen DS" 


7 


4 SAY "SUBMENU! 
33 SAY "INFCRMATION" 
Say "A. Add new ctficer members" 
5 SAY "B. Add excert members! 
5 SAY "C. Add military education" 
8 SAY " rasults! 
5 SAY "D. Add recent promotion members" 
5 SAY "E. Add awa rd and punishment records"! 
,42 SAY "F. Add performance evaluation" 
0,45 SAY " records’! 
11,42 SAY "G. Add assignment records'! 
13,42 SAaY "I. Change date’! 
14.42 Sayo"K. Return co main menu!! 
20,8 SAY "DATE IME!! 
20,55 SAY "UPDATED BY" 
Zi > SAY Sead a 
21,19 SAY TIME() 
x@ 2a 52 SAY qname 
G23, 10 SAY Ofeneee selection (A - I, or X to return to main! 
G23 57 SAY ' ment mc - on, 
DO WHILE .T. 
1=0 
DO WHILE 1=0 
L=INKEY() 
G21. 19 Ssaévetine © 
@ 23,65 SAY "" 
. IF UPPER(CHR(i))$"ABCDEFGIX" 
iE 


ENDIF 

1=0 
ENDDO 
23765) 540 UPPER(CHR(i) ) 
IF .NOT. CHR(1 jo! ta" 

Ex. 
ENDIF 
SET COLOR TO N/W 
@19,33 SAY "INFORMATION" 
@ 13,42 SAY "I. CHANGE DATE" 
SET COLOR TO W/N 
BEAD’ 5 GET today 


R 
@2 SAY toda 
@ Ae 3 SAY "INFORMATION" 
@13,42 SAY "I. Change date" 
@ 23 65 Sn. - te" 
ENDDO 
DO CASE 
CASE CHR(1)S "Xx"! 
CLEAR . 
DO maintain 
RETURN 
CASE ae eas 
DO UPM 
CASE CHR(L)S$"Bb" 
DO UPEXPERT 
CASE CHR(21)S'"G¢c" 
DO UPEDUCAT 
CASE CHR(1)S"Dd"" 
DO UPPROMOT 
CASE CHR(i)S"Ee!"! 
DO UP_AW PU 
CASE CHR(i)S"FE" 
DO UPEVAL 
CASE CHR Giaistcal 
DO UPCAREER 
oe 


DOWDADOVDADADADAAMA MODE 


ne, when done,return to main menu 
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a. MAINTAIN.PRG 
KAERKKREKRKAAEKKERERRKARAKKKKERK KAKA AAKKARERERAKAKKRRAAKAKKEKEKRRRERRER AK KARR RR 


Mocule name :MAINTAIN.PRG 

Author sKIM, SAM NAM 

Date :1 DEC 86 ; 

Purpose :This is the.data file maintenance, used for 


updating and editing. 
Called by 6 2 _ 


PORTE, EDIT 
Modules called : none 
KRRAKEKRRKRKKRAKERRRAEREKRERERERERERERERERERERKRRAERRRERRERKRRRKRARRERKKRKERERKER 
USE kim 
DELETE ALL 
PACK 
USE promote INDEX promot 


1 = sn 

field = peouce! 

DO WHILE .not. EOF() 
x = 


i 

y = field 

1 = sn 

fieldd = p_order 

Joe nh ss . 
string = SUE STN exes?) 
fields = SUBSTR aay 
Preseoingdezst1e1cds 

field = p_order 

ENDIF 

ENDIF 

ees 2x 
USE kim 

~ APPEND BLANK 

REPLACE sns WITH x 
REPLACE porder WITH y 
USE promote INDEX promot 
field =fieldd 


DIF 
LOCATE FOR sn = 1 .AND. p_order = fieldd 
SKIP 
ENDDO- 


USE kim 
APPEND BLANK 
REPLACE sns WITH i 
REPLACE porder WITH field 
SEuEer | 
USE kim 
SEGCECT 2 
USE rank INDEX rank 
JOIN WITH kim TO member FOR p_order = A->porder ; 
FIELDS A->sns,p_order,ranks, tdate 
SeLeer 3 
USE main INDEX MAIN 
SELECT 4 
USE member 
JOIN WITH main TO all FOR sns = Ce->Ssn ; 
FIELDS ranks,sns,C->name,C->c_type,org_branch,p_order, ; 
tdate,C->born_date,C->born_place 
USE all 
REINDEX 
CLOSE DATABASES 


RETURN 
b. UPMAIN.PRG 
KAKKKAKKKKKKAKKKRARKAKKRKKAAKKAKKAKAKAKKKAKKKKAKAKKRARERAERRERRER RARE RERRRRR 


An A A A A 


* Module name :UPMAIN.PRG 

* Author :PARK, JAE BOCK 

* Date :22 NOV 86 

: Purpose :This is the UPDATE module for updating new member. 


It sets up the add new officer members menu, 
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- accepts input from the user and calls tie 
* required modules. When control is returned 
Z from the called module, the user is asked if mone 
x information is required and the process ae repeacece 
x or control is passed back to the UPDATE module. 
* Called by : UPDATE 

* Modules called :SCREENI 

* Variables used: | 

* Global : 1: holds the value of the user input. 
5 today: holds date 

x 


Local : none 
KAKRKKKKKAAKKKKRKAK RARER KKKRKKARKKRARKKKKKKKK KKK KAKA KAKKKKKKKKKKKKKKKK 
x 


Set up loop for adding new officer members. 
KRAKAKRKAKARARKARARRKK AAR RAK AR ARA RA RAR RAK ARR ARARARAKARAKRARARARAKKKRKARR 
USE main Index main 
sns.e= Ise lt 
DO WHILE sns # " " 

CLEAR 
@2,1 SAY "Add new officer members" 
@ 2,60 SAY today 
@ 2,70 SAY TIME() 
¢ 3,0 SAY ULINE 
5 


Rewer erceen- Get proposed service number. 

sns = SPACE (8) | 

@15,5 SAY "Enter service number (- or press RETURN; 
ie GET sns 


RE 
Keecccrr--- Check to see 1f£f service number already exists. 
sns = LOWER(sns) 
SEEK sns 
DOV GaSe : 
Keees--- If user did not enter a service number, 
Kewne--- clear the screen and return to UPDATE menu. 
CASE, Snsn= 
CLEAR | 
Keowee —- If service number already exists, 
Keereen- notify user and allow another try. 
CASE FOUND() 
@ 20,10 SAY sns + "already exists" 
? CHR(7) 
WAIT 
Kewrren- Tf service number not already staken: 
Keeweon- let user add it. 


CASE .NOT. FOUND() 
APPEND BLANK 
REPLACE sn WITH sns 
SET FORMAT TO screenl 
READ 
SET FORMAT TO 
ENDCASE 
ENDDO(While user does not enter blank for service number.) 


aos Return tO UPDATE menu. 
RETURN 
c. UPEXPERT.PRG 


RAKARAAAAAKAKKAKAKKAAKAKKKAKKKKKKAKKKKRKARAAAKAAKKKKAKKKKKAAKKAKAKKKARKAAKRKKK 
* Module name :UPEXPERT.PRG 


‘i mune eee: ie BOCK 
acs $ 
* Purpose :This is the UPDATE module for adding expert to the EXPERT 
a database file. It sets up the add expert members menu, 
. accepts input from the user and calls the 
a required modules. When con tuo ios gem ancaus 
i from the called module, the user is asked 1f more 
: information is required and the process 1s repeated, 


or control is passed back to the UPDATE module. 
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* Called by : UPDATE 

* Modules called :none 

* Variables used : | , . 

Globai : 1 : hoids the value of the user input. 
today: holds date 


a a 


Local : none 
KAKKAAKKAKKAARKARKAKAAKAKKAKKAKKARAAKRAKKARKEERKA RRA KAKA AAKKKARKAAKKAKK 


* Set Up loop for adding new officer members. 
KAERKEKKEKERKKAKEKRKEKKRKRKKKKAKEKRERERERKKKK RAE RERKKRK KERR RERERERKRREREREKKK 
sns = !lyil 
DO WHILE sns # ! !! 

CLEAR 


@2,1 SAY "Add expert members' 
@2,60 SAY toda 

@ 2,70 SAY TINE) 

g eyo SAY ULINE 

? 


Rear eewerenn Get proposed service number. 

sns = SPACE(8) 

[ele oAg EMter service number ( or press RETURN; 
to exit)" GET sns 


w--------- Check to see if service number already exists. 
USE main INDEX main 

sns = LOWER(sns) 
SEEK sns 


Rennnnnn If user did not enter a service number, 
Keene -- clear the screen and return to UPDATE menu. 
CASE sns = " "! 


Kaw = = = If service number does not exist, 
Rewnwn—m Boa EY user and allow another try. 
CASE .NCT. FOUND( 

@ 20,10 SAY sns + "does not exist! 

? CHR(7) 

WAIT ; 
Kawwwwan If sérvice number already exists in the MAIN file 
Kewnn- aH Glee wmte seewtt Service number and expert title already 
Reman a-- exists in the EXPERT file. 

CASE FOUND() 
USE expert INDEX expert 


wrt eet eecn-- Set up loop for adding expert titles. 
EELELeg= x" 
DO WHIEE@Etitle =" " 
CLEAR 


@ 2,1 SAY "Add expert members" 
@ 2,60 SAY toda 

rz] OSA Y TIME) 

g sy0e SAYSULINE 

? 


TS ae ers Get proposed expert title 
ttitle = SPACE(20) | 
| @15,5 SAY “Enter expert title (or press RETURN to; 
ecie)' GET ttitle 


READ 
*-- Check to see 1f service number already exists. 
SEEK sus 
DO CASE 
K we we wo ow ee = Tf user didenot enter a expert title, 
Kewnw--- ~ clear the screen and return to previous 
Kewwww aa rogram. 
GASE Eerele = i 
CLEAR 
Keeneon- eg se mite enti en GOcs NCE mex) sits, 
Kee a-n- add a expert title. 


CASE .NOT. FOUND( 
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APTEND BLANK | 
RETLACE expertitle WITH ttitle 
REPLACE sn WITH sns 
Keewennn If service number already exzsts in the 
ee EXPERT file, check to see 1f expert _ 
Keewncne title already exists in the EXPERT file. 
CASE FOUND() 
USE expert NDE expences 
ttitle = LOWER(ttitle) 
SEEK ttitle 
DO CASE 
CASE FOUND() | | 
@ 20,10 SAY ttitle + "already exists" 


CHR) 

WAIT ; 

Keeennnn If expert title not already taken, 
Keennnn- let user add it. 


CASE .NOT. FOUND() 

APPEND BLANK | 

REPLACE expertitle WITH ttitle 

REPLACE si Witness 

ENDCASE 
ENDCASE | 
ENDDO(While user does not enter blank for expert title) 

ENDCASE 
REINDEX 


CLEAR 
ENDDO(While user does not enter Elank for service number) 
Keeweeeenen= Return to UPDATE menu. 
RETURN 

d. UPEDUCAT.PRG 


KREKRKEKRKKRKRKRRKRRRKRRKRRRRRRRRRRRRARKERRRRRRRARARRERERRRRRRRRRRRRRRRRRRRRRRRRRKK 


Module name -:UPEDUCAT ERG 

Author :KIM, SAM NAM 

Date 732 NOV eae . 

Purpese :This is the UPDATE module for adding education results. 


It quries the user for task selection and calls 
the correct module see vsenicemendieuequlest. 
When control is returned sercnmryemed Pingenoclecr 
the user is asked if more information is required 
If ves, then the process is repeated, else, the 
rogram terminates. 
Called by : UPDATE 
Modules called :MENUSCR, UP_MED1, UP_M_ED2 
Variables used : 
Global : i: holds the value of the user input. 
today: holds date 
Local : none 
RARKAKAAAKKKKAKAKKRKA RA RKAKAAKKAAKARARKEKAAAKARAAKKAKKAARKARRKARAARAARARKREAA 


* Set up loop for presenting menu. 
RARKAAARKKARKKARKRAAKRKRKKA KAKA KARA AREA KARA AKAAARAAKARARKRRAARAKAAKAARAKRRARKRAR 
CLEAR 

DO WHILE .T. 

* DO WHILE .T. means DO WHILE TRUE i.e. DO FOREVER 

* The DO WHILE will be terminated by an EXIT command 

* Clear the screan and display the main menu 

DO MENUSGER 
2,11 SAY "A D D Sieleiyr T aA Ree Ee DeCeh ~T 170 time 2S Um. 
S 


6,56 SAY 'SUBHENUM 

19,33 SAY "INFORMATION" 

10,21 SAY "A. Add military education results’! 
11,21 SAY "B. Add personal education results" 
12,2. Shiv wee Change Gaeeu 

lay2l SAY Uae a 

20,8 SAY “DATE cree 

20,55 SAY “UPSATER ear 

21,5 SAY today 


Ae OO OHH a 


ADADDADAaAM Ia 
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@ 21,19 SAY TIME() 


*@ 21,52 SAY gname 
mes, 10 SAY "{ Entenesediection ( A - C, or K to Exit ): : J" 
DO WHILE .T. 
1=0 . 
DO WHILE i=0 
i=INKEY() . 
@ 21,19 SAY TIME() 
@ 23,54 Save 
IF UPPER(CHR(i))S"ABCX" 
EXIT 
ENDIF 
1=0 
ENDDO 


@ 23,54 SAY UPPER(CHR(i)) 
IF .NOT. CHR(i)S"Cc" 
EXIT 


ENDIF 

SET COLOR TO N/W 

@ 19,33 SAY "INFORMATION" 

@ 12,21 SAY "C. CHANGE DATE" 
SET COLOR TO W/N 

@ 21,5 GET today 

READ 


@ 21,5 SAY toda 
@19,33 SAY "INFORMATION'! 
‘@ 12,21 SAY "C. Change date" 
ide, 542° SAY ' 1 
ENDDO 
DO CASE | 
CASE CHR(i)S "Xx! 
CLEAR 
RETURN | 
CASE CHR(i)$"Aa" 
DO UP_M EDl 


CASE CHR(1)S"Bb"! 
DO UP_M_ED2 


wooo eee when done,return to main menu 
I. UP_M_EDI1.PRG 


KRRKEKKRKRKRRKKRKRKRRKRRRKRRKRKKRRRKARRRRKRRRRRRRRKKRRRRKRKARKAKKRKKKKRRRRRRARRRRARER 


Module name :UP_M_ED1.PRG 

Author :PARK, JAE BOCK 

Date :22 NOV 86 

Purpose :This 1s the UPEDCAT module fer adding education results. 


It sets up the add aay education result, accepts 
input from the user and calls the required modules. 
Whemecontrol is returned from the called module, the 
user 1s asked 1f more information 1s required and the 
the process ls BE Dee or control is passed back to 
the UPEDUCAT module. 

Called by : UPEDUCAT 

Modules called :SCREEN3 

Variables used : 

Global : 1 : holds the value of the user input. 
today: holds date 


MOF OO OO OO 


Local : none 
KAKKKKKKKKKARKKERAERKERKERRAKKERARERAK RARER RERAKEAERRARERAEREARRRAARKRRRARKRR 
* Set Up loop for adding new officer members 

KKARKKKKKK = 


KKAKKKKKAKKKKE KARAKAKKARKKAKKKKKKAKARAKARARKAARKARAKAKRARAKRAKKKK 
USE m_educat Index m_educat 
name= "x! 
DO WHILE name # " " 
CLEAR 


@2,1 SAY "Add military education results" 
@ 2,60 SAY today 
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70 SAY TIME() 
9 SAY ULINE 


™- 


feosawecnoce= Get proposed course name. 

name = SPACE(20) 

@i5,5 SAY "Enter course name ( or press RETURN; 
to exit)" GET -name 


READ 
Re eenne---- Check to see if course name already exists. 
name = LOWER(name) 
SEEK name 
DO CASE 
Xeooena- If user did not enter a course name, 
Reneoe-- clear the screen and return to UPEDUCAT menu. 
CASE name = " "! 
CLEAR 
Keene If course name already exists, 
Reena nn- notify user and allow another try. 
CASE FOUND() . 
@ 20,10 SAY name + "already exists" 
2 CHR. 
WAIT 
Reana--- If course name not already taken, 
Kemnnnn- let user add it. 


CASE .NOT. FOUND() 
APPEND BLANK 
REPLACE cname WITH name 
SET FORMAT TO screen3 
READ 
SET FORMAT TO 
ENDCASE | 
ENDDO(While user does not enter blank for service number.) 


oc ecee----- Return tO UPDATE menu. 
2. UP_M_ED2.PRG 


KAKAKAKKKAKKKARKKKAAKRKAKAKKRKAKRKKAKAKKRRKRKRKAAKRKAKRKAKREKRKKRAKRKRRKRAKRRAKRRKRRRKRKRKARKKRKKRR 


Module name :UP_M_ED2.PRG 

Author :PARK, JAE BOCK 

Date :22 NOV 86 | 7 
Purpose :This is the UPEDUCAT module for updating military 


education results to the EDUCATMN file. 
It sets up the add military education results, 
accepts input from the user jam@amgeatis see 
required modules. When control 1s returned | 
trom the called module, the user is asked 1f more 
information is required and the process ls repeated, 
or control is passed back to the UPEDUCAT module. 
Called by SUREDUGAT 
Modules called :SCREEN2 
Variables used : 
Global : i: holds the value of the user input. 
today: holds date 


Local : none 
KAKKKAKEKKEKEKRKRKAKRKERKEKAKKKRARER KKK KR RRAKKEKAREKRAKAKAKKAKKKKKAKKKKAKKAKE 


* Set up loop for adding military education results. 
KAKKKAAAKAKKARKA ARR RRA AKKAKKK RA KKR AK AKKAKRRARAKRKARKKR AKER RR ARAARRAARAKRK 


USE educatmn INDEX educatmn 


De OO OO OO a 


name = "x 
sns = "x! 
DO WHILE sns # | OR feiname. ta 
Rewer nooa-- Find out what service number to add. 
CLEAR 


@2,1 SAY "ADD PERSONAL EDUCATION RESULTS! 
2,60 SAY today 
2,70 SAY TIME() 
3,0 SAY ULINE 
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Keawsnorccce Get proposed service number and class name. 

name = SPACE(2Z0) 

sns = SPACE(&; | 

@15,5 SAY "Adda for what service number : 
" GET sns 

READ 


@17,5 SAY "Add for what class name" 
@ 18,7 SAY "( or press RETURN to exit)" GET name 


READ 
Rewern----- Try to find that service number. 
sns = LOWER(sns) 
SEEK sns 
DO CASE | 
Kewrrrnn If no service number entered, return to UPDATE menu. 
CASE sns = " tt 
CLEAR 
CASE name = ! !! 
CLEAR 
Keownn= [Peeoeevtce number found, try to find that class name 
Kewnnne and add using screen2 format. 


CASE .NOT. FOUND() 

USE educatmn INDEX ccname 
snss = sns + name 
snss = lower(sns) 
SEEK snss 

IF .NOT. FOUND() 

USE educatmn 

APPEND BLANK 

REPLACE sn WITH sns 

REPLACE cname WITH name 

SET FORMAT TO screenz 


READ 
See seORMAT TO 


ELSE 
@5,0 CLEAR | 
@15,5 SAY name + " already exists! 
2 CHRI@) 
WAIT 
ENDIF | 
Rewenen= Otherwise,warn user and allow another try 


CASE FOUND( ) 
Cevie wo ee cnere is no " + sns 
@ 24,5 SAY "Press any key to try again..." 


WAIT Hi Ih 
ENDCASE 7 
ENDDO(Continue editing until user requests exit) 
ie eocec----- Return tO UPEDCAT menu. 
RETU 


RN 
e. UPPROMOT.PRG 


KAKRKRKRKKKKRKKKRKKARKRKKRKKKRKRKKKRKERKRKKRRAKRKRKRKRKRKRKRKRKRKRKRKKRKRKRKAKRRKARKAKKRKKRKRKRKRKARRAKRARKRRARAERK 


AA AAA AAAAAAAAAAAN 


Module name :UPPROMOT.PRG 

Author :PARK, JAE BOCK 

Date :22 NOV 86 

Purpose :This 1s the UPDATE module for adding recent. 
Batons Henle a omuCmGNcmuneOlbecatajase 7ile. 

EMSets Up Che add recentwpromotien members menu, 

Bese sEsmlUDiLerbom tue User and calls the 
required modules. When control is returned 
Peemmene catted module, the user is asked 1f more 
information 1s required and the process 1s repeated, 
or control 1s passed back to the UPDATE module. 

Called by : UPDATE 

Modules called :MENUSCR, UPPROMO1L, UPPROMO2 

Variables used : 

Global : 1 : holds the value of the user input. 


today: holds date 
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x Tocal ;: none 
KKEKRKKKKRERERK AKA AR REKARAKAARK ARR AAAR ARR AAA REREAKK RRR AKAKRERRRRKERK 
* Set up loos. fez adding promotion officers. 
RRAKKAKKRKKEKERARR RAR EKAR ERK AKRE RK RAR ARKAAKKR ERR RAK EKARR ARK KRERRRERARKR 
CLEAR 
DO WHILE .T. | 
* DO WHILE .T. means DO WHILE TRUE 1.e. DO FOREVER 
* The DO WHILE will be terminated by an EXIT command 
* Clear the screan and display the main menu 
DO MENUSCR 
2,13 58Y “AD yD) Ry epee a PRO MOP DON] ke CC Oe. 
Sysoescny SUBMENU" 
Po; 25 19AY “INFORMALIC) a 
10,21 SAY "A. Add promotion seucers” 
11,21 SAY "8. Add personal promotion ~ecoRas” 
12 Ze CA Ue. Change date!’ 
13020 SAY 2 eee 
20,8 SAY "DATE cline 
20,55 SAY. UPPS RED Rew 
21 ose Eooay 
21,19 SAY Pree) 
(26 say gnane | 
[ Enter selection ( A - C, or X to Exit ) :: J!" 


MiMiDMimMiiaia (iam la) 


ia) + 
@ 

I) 

Who 
t- 


/ 


DO WHILE 

1=0 

DO WHILE 1i=0 
i=INKEY() 
Q Ziv oSeveniMEG 
@ 23554) SAY 
IF UPPER(CHR(1))S"ABCX" 

EXIT 


ENDIF 
1=0 
ENDDO , 
@ 23,54 SAY UPPER(CHR(i)) 
IF (NOD. CER Gi isi"Gev 
EXIT 
ENDIF 
SET COLOR TO N/W 
@i19,33 SAY "INFORMATION" 
@12,21 SAY "'C. CHANGE DATE! 
SET COLOR TO W/N 
@ 21,5 GET today 
READ 
@ 21,5 SAY “toda 
@19,33 SAY "INFORMATION! 
@ 12,21 SAY "C. Change date" 
@ 23,54 say 
ENLDO 
DO CASE 
CASE CHR(i)S "Xx! 
CLEAR 
RETURN 
CASE CHR(i)S"Aa" 
DO UPPROMO1 
CASE CHR(i)S"'Bb!! 
DO UPPROMOZ 


t+ 
‘) 
W 
. 
i 


2 o--------- when done,return to main menu 
1. UPPROMOI.PRG 


KAKKAKKKKARARKKKKAKKKKKRAKRKAAKKKRKKKKAKAKRKKKKAAKAKKRKKKKAKRKKRRKAKAKRKEKRKAAKRAKRARAKAKKKKK 


* Module name :UPPROMO1.PRG 

* AUCHOE :sPARK, JAE BOCK 

x Date :22 NOV 86 

ss Purpose :This is the UPPROMT module for adding promotion orders 


to the RANK file. It sets up the add promotion oders, 
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accepts input from the user and calls the 
required mocules. When control is returned | 
Peonmelemet.2ed module, the user is asxed 1£ more 
information 1s required and the process is repeated, 
or control 15 passed back to the UPPRCMOT module. 
Called by ; UPPROMOT 
Modules called :SCREEN4 
Variables used : | ; 
Global : 1: holds the value of the user input. 
today: holds date 


Local : none 
KKEAEKKKKKKKRKERKRARRRRERKERRARRAKRRRRRRERRRRRRRR RRR RAKRRRERERRRERERRRKKERE 


Set u Loop for adding promotion orders. 
KAKEKKKKKKKAKKEKKAEKAKRAKAERKEKERRERERERAAKRARRRRARRARKRKRKRKRRERRKRRARKRRREKR 
USE rank Index rank 

order = !yl 

DO WHILE order $=" " 

CLEAR | 

@2,1 SAY "Add recent promotion orders.!! 

@2,60 SAY toda 

@ 2,70 SAY TIME() 

@ 3 
? 
? 


OR OR OR OR OR ROR 


+ 


,O SAY ULINE 


Keewonenrncn= Get proposed promotion order. 

order = SPACE(20) . 

@i5,5 SAY "Enter promotion order ( or press RETURN; 
Eeagntt)” GET order 


Remnnnnn--- Check to see 1f promotion order already exists. 
order = LOWER(order) 
SEEK order 
DO CASE 
Reowoonn- If user did not enter a promotion order, 
Kemnnonn clear the screen and return to UPPROMOT menu. 
CASE order = ! '! 
CLEAR ; 
Keonnnoe If promotion order Bea Sy exists, 
Keeononn notify user and allow another try. 


CASE Bou) 


@ 20,10 SAY order + "already exists"! 

? R(7) 

WA . 
Reennn-- If promotion order not already taken, 
Reoocon- let user add it. 


CASE .NOT. FOUND() 
APPEND BLANK 
REPLACE p_order WITH order 
SET FORMAT TO screen4 


READ 
SET FORMAT TO 


ENDCASE | 
ENDDO(While user does not enter blank for promotion order) 
REINDEX 
Rewer eeeen--- Return tO UPPROMOT menu. 

RETURN 


2. UPPROMO2.PRG 


RIEKAKKAKKAERAKAAK KKK AARAAKAKAKAKAKKAK KARA RAKE RRARKRK RRR KRERERRERERERRRRRRRR 
* Module name :UPPROMO2.PRG 


- Becher es ane BOCK 
ace ; N 
x Purpose :This is the UPPROMOT module for adding personal 
- oe records to the PROMOTE file. 
x Eee sep tie ddGasensOnd )Sromoclonerecord, 
x lceeoroe mputarrom the Usermand calls” the 
5 required modules. When control 1s returned | 
> from the called module, the user is asked if more 


information is required and the process is repeated, 


i 


or control is passed back to the UPPROMOT module. 
Called by : UPPROMOT 
Modules called :ncene 
Variables used : | 
Global : i: holds the value of the user input. 
today: holds date 


+++ HH 4D 


Local none 
TRIO CE ST 


loop for acding ersonal promotion records. 
i KAKA RKKKAKKKKEKKKRAKAKERKRAEKRRRKRKEKERKKRRERERERKRRKEKKKK 
USE main INDEX main 
sns = Hell 
DO WHILE sns # ' !! 
CLEAR 
@ 2,i SAY "Add personal promotion records"! 
@ 2,60 SAY today 
@ 2,70 SAY TIME() 
@ 3, 
° 
? 
~ 


+ 


O SAY ULINE 
ecccccrc--- Get proposed service number. 
sns = SPACE (8) ; : 
READ’ 5 SAY "Enter service number ( or press RETURN to exit)" GET sns 
coceeco--- Check to see if service number already exists. 
sns = LOWER(sns) 
SEEM cus 
DO CASE 
Reecroe- If user did not enter a service number, 
Keeeccece clear the screen and return to UPDATE menu. 
CASE sns = " "| 
CLEAR | 
Keeccoc- If service number does not exist, 
Keoccee- notify user and allow another try. 


CASE .NOT. FOUND() . 
@ see sns + "does not exist! 


? CHR(7 

WAIT 
Keonoo-- If service number already exists, 
Kano = == let user add it. 


CASE FOUND() 
USE promote INDEX promote 
ae Set up loop for adding personal promotion 
* erccccecece- record. 
orders = "x" 
DO WHILE orders # " "' 
CLEAR 
2,1 SAY "Add personal promotion records." 
@ 2,60 SAY toda 
2, LOSAL TIME?) 
3,0 SAY ULINE 


NVaMaa 


ia 

Ra mecccccee- Get proposed promotion order. 

orders = SPACE(20 

@ 15,5 SAY "Enter promotion order (or press RETURN to; 


exit)" 
Sut ouee SAY "(e.g --->86-100 ARMY)" GET orders 
REA 


*-- Check to see if service number already exists. 


SEEK sis 
DO CASE 
Keoooo-- If user did not enter a promotion order, 
Keeon--- clear the screen and return to previous 
Keenne-- program. 
CASE orderse——) = 
CLEAR 
Keao-e--- If service number does not exist 
Keoocee- add a personal promotion record ee "PROMOTE 
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file. 
CASE .NOT. FOUND() 
APPEND BLANK 
REPLACE p_order WITH orders 
REPLACE sn WITH sns 


Reeenern If service number already exists in the 
Keweooe= EDUC@INN £tle,;memeck to see if course 
Kewnc--- name already exists in the EDUCATMN file. 
CASE FOUND() 

FIND sns 

COPY TO temp WHILE sn="sns" 

USE temp 

INDEX ON eeongee TO temp 

USE temp INDEX temp 


orders = LOWER(orders) 
SEEK ondeus 
BOSCASE 
CASE FOUND() | 
@ Be orders + "already exists" 


7 CHR 

WAIT 

Rewer swa If promotion order not already taken, 
Oooo. let user add it. 


CASE .NOT. FOUND() 
USE promote INDEA promote 
APPEND BLANK 
REPLACE p_order WITH orders 
Rep ea ee esiawl Ddeshc 


ENDCASE 
ENDCASE | 
ENDDO(While user does not enter blank for expert title) 

ENDCASE 

RE INDEX 

CLEAR | 
ENDDO(While user does not enter blank for service number.) 
Rewer wee——- Return to UPDATE menu. 


RETURN 
[| UP_AW_PU.PRG 


KAARKRKAKRKKKAAKKKRAKRKKRKAKRKRKKAKKAKRKKAKKKAKKRKRKKRKKKAKRKKRKRKKKKKRKRKRKKKAKAKRKKKKKARAER 


Module name :UP_AW_PU.PRG 

Author :KIM, SAM NAM 

Date :22 NOV 6&6 

Purpose :This 1s the UPDATE module for adding awarded and 


punished members to the AWARDPUN, the A_P_MN, and 

the A_P_P database files. . 

It set up the add award and punishment records menu, 

aceepirs Input ETOmecne User and calls) the 

Beguened Modules s When control 1s returned — 

from the called module, the user is asked if more 

information is required and the process is repeated, 

or control is passed back to the UPDATE module. 
Called by : UPDATE 
Modules called : MENUSCR, UPAW_PU1L, UPAW_PU2, UPAW_PU3 
Poertaples used : 

Global : 1 : holds the value of the user input. 
today: holds date 


Local : none 
KAKA KKK RKER KAKA KARA RAKKKAKRAAKRK KARR KARA AK ARKARKKKAKAKARK KAKA 


* Set up loop for adding award and punishment records. 
KAAKKAKKKKKAKKERARKKKAKAKKAKRARKKAKKAKAAKAAKAAKAKAKKKAAKARAAKRAAKKRAARKA 
CLEAR 

DO WHILE .T. | 

* DO WHILE .T. means DO WHILE TRUE 1.e. DO FOREVER 

* The DO WHILE will be terminated by an EXIT command 

* Clear the screan and display the main menu 

DO MENUSCR 

@2,11 SAY "ADD AWARD AND PUNISHMENT RE ; 
eo ek Dp S" 


A OO OR OR OR OO OO OO 


leg 


DADAADMOOM OM Mm 


6,36 SAY "SUBMENU" 
19,33 SAY "INFORMATION" 
10,21 SAY "A. Add award and punishment coints." 


ZcP a SAY “UPDATED Bx 
21,5 SAY tod i 
a 29 SAY TIME() 


*@ 21,52 SAY gname | | 
@ 23,10 SAY " [ Enter selection (A = D Some ween xit)) 
ere les 


Do WHILE i=0 
1=INKEY() 
Q 2io Boe say TIME () 
1 


@ 23,54 | 
IF UPPER(CHR(i))S"ABCDX" 
EXIT 


ENDIF 

1=0 
ENDDO 
@ 23,54 SAY UPPER(CHR(1i)) 
IF .NOT. CHR (1)S"'Del 

EXIT 


ENDIF 

SET COLOR TO N/W 

@ 19,33 SAM" INFORMATIONS 

@ 13,21 SAY "D. CHANGE DATE"! 
SET COLOR TO W/N 

@ 21,5 GEhictoday 

aa 


R 
@ 2 sone today 
(Sad AY "INFORMATION" 


g 13 33 SAY "'D. Change date" 


@ 22,54 Say. | 


ENDDO 
DO CASE 


CASE CHR(i)$ "Xx" 
CLEAR 


RETURN 

CASE a oer ak 
DO UPAW 

CASE cHR( D) SHB" 
DO UPAW _PU2 


CASE CHR(Dys"'Ce” 
DO UPAW_PU3 


ENDCASE 
0 


2------ when done,return to main menu 


1. UPAW_PUI.PRG 


11,21 SAY "B. Add personnel erder of award and punishment." 
12,21 SAY "C. Add personal award and punishment record." 
13,,Z203sh 'De Change date'! 

i SAY "X. Exit 

20,8 SAY "DATE eee 


|i 


KRKRRAREKRKERRKRRKRARARRRARRRRRRRARRAKRRERRARERARRRRRRAKRRRRRRRRRRRRRERKAKRRERRERRRE 


Modules called : SCREENS 
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* Module name :UPAW_PU1L.PRG 

* A enol: :KIM, SAM NAM 

* Date :22 NOV 86 

* Purpose :This is the UP_AW_PU module for adding award and 

x unishment points to the A_P_P file 

* t sets up the add award al “punishment points, 

* accepts input from ene se meancmecqihomeme 

a required modules. When control is returned 

- from the called module, the user is asked 1f£ more 
e information ls required and the process 1s repeated, 
* or control is passed back to the UP_AW_PU module. 

5 Called by : UP_AW_PU 


* Variables used : _ : . 
m= Giobal : i : holds the value of the user input. 


* today: holds date 

= TOGa oc NORE ae 
RIKKKKKKKARKREIERAAAERRARA KR R RARER RRR RKERRKE RAK ERKARKKAAKKRKRKARAKKKK 
* Set Up loop for adding award and cunishment records. 
KAKKKRAKKKKARK RR AKKKRRRAKKRAKAK ARK RAR AKA RAKKRRREKERERKAAE RE RRRAKKRRRERAKRRR 
USE a_p Index a_p_p 

kinds Sa 

DO WHILE kinds # " 4 


CLEAR | | 
@2,1 SAY "Add award and punishment points." 
@2,60 SAY toda 

@ 2,70 SAY TIME) 

¢ 3,0 SAY ULINE 

? 


aa. sso oo Get proposed award and punishment name." 
kinds = SPACE(30) 
@ 15,5 SAY "Enter award and punishment name (press RETURN; 
Eo eure)" GET kinds 

A 


Kewwwonnon= Check to see if award and punishment name already exists. 
kinds = LOWER(kinds) 
SEEK kinds 
DO CASE 
Reeccen- If user did not enter a award and punishment name, 
Keoono-- clear the screen and return to UP_AW_PU menu. 
CXSE kinds =" " 
CEEAR : 
Kewoosaa If award and punishment name already exists, 
Reoecen- notify user and allow another try. 
CASE FOUND() . | 
@ 20,10 SAY kinds + "already exists" 
Paeerh (a7 ) 
WAIT 
Reeeee-- If award and punishment name not already taken, 
Kewnnnn- let user add it. 


CASE .NOT. FOUND() 
APPEND BLANK 
REPLACE kind WITH kinds 
SET FORMAT TO screen5 
READ 
SET FORMAT TO 
ENDCASE 
ENDDO(While user does not enter blank for award and punishment; 
name. 


weer enees-- Return tO UP_AW_PU menu. 
2. UP.AW_PU2.PRG 


KRAHAKAKKKKKKKKKRKAKAKKKRAEKKRAARERRARRRRRRRRKRRRRRRKRKRRRKKRRRRRRRRRRRRARRARKAARK 


* Module name :UPAW_PU2.PRG 

* Author oh) OA tiets 

ae Date :22 NOV 86 

* Purpose :This is the UP_AW_PU module for adding the 

: personnel order of award and punishment to the AWARDPUN 
. file. It sets up the add personnel order of award and 
* punishment, accepts input from the user and calls the 
x required modules. When control is returned 

: from the called module, the user is asked if more 

. information 1s required and the process 1s repeated, 

3 or control 1s passed back to the UP_AW_PU module. 

* Called by : UP_AW_PU 

* Modules called :SCREEN6 

* Variables used : 

- Global : i : holds the value of the user input. 


today: holds date 
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* Tv ”~ 
Local : nene 
PIKE KRAKKARKAKAK AER EKKRERKK RAK REKAKARRRAKEKRRRR RK AE KKRARRRRAKRAKKAKKAAKK 


* Set Up loop for adcing the personnel order. 
KKK x 


ki RAR ARAAKK RARKKKAAKKKEKERAKKKKKRARKRAKAKKAKARARKRKRERRARARAKKK 
USE awardpun Index awardpun 
award = "x" 
DO WHILE award # " " 
CLEAR 


@2,1 Say "Add the personnel order of award and punishment." 
@ 2,60 SAY toda 

@ 2,70 SAY TIMES) 

¢ 3,0 SAY UEINE 

x 


ll Get proposed personnel order. 

award = SPACE(20) 
@15,5 SAY "Enter personnel order ( or press RETURN; 
to er) GET award 


REA 
Keen neen--- Check to see if personnel order already exists. 
award = LOWER(award) 
SEEK award 
DO CASE 
Keenon-- If user did not enter a personnel order, 
Reennen- clear the screen and return to UP_AW_PU menu. 
CASE award =" "' 
CLEAR 
Reenen-- If personnel onder alreadyeezrscs, 
kKeaoe---- notify user and allow another try. 


CASE FOUND() | 
@ 20,10 SAY award + "already exists" 


? CHR(7) 

WAIT 
Keeoncne If personnel order not already taken, 
Keaennn-- let user add ic. 


CASE .NOT. FOUND() 
APPEND BLANK 
REPLACE p_order WITH award 
SET FORMAT TO screen6 
READ 
SET FORMAT TO 
ENDCASE 
ENDDO(While user does not enter blank for personnel order) 
RE INDEX 
Reennenenn-- Return tO UP_AW_PU menu. 
RETURN 
3. (CO PAN ee eG, 


KRARKEKRAAKKKAKKRKRKAKRRKRRRREKRKRKAKRKKRKARKKRKAKRKRKRRKRAARKARKEKRKARRKRRRRKRRRRRAKRKRARKRRRKE 


* Module name :UPAW_PU3.PRG 

* Author :KIM, SAM NAM 

* Date :22 NOV 86 

* Purpose :This is the UP_AW_PU module for adding personal 

x award and punishment records to the A_P_MN file. 

* It sets up the add personal award and punishment 

* records, accepts input from the user and calls the 

os required modules. When control ts fecurned — 

a from the called module) thesUser eos ced) 2femote 

* information is required and the process is repeated, 

x or control is passed back to the UP_AW_PU module. 

* Called by : UP_AW_PU 

* Modules called : none 

* Variables used : | 

x Global : 1: holds the value of the user input. 

* today: holds date 

rs Local : none 

KARRAKKAKKAKKKK ARR RAKKAR RAR RRKRARKKKAKAKRAAKAKAAKKAKAAKAAAKAKARKKAAAAAAKARAAKA 
* Set Up LOCme. ols adding military education results. 
KAKKAKKKAAAKAKKKAKKKAKAKRAKAKAKKKKARAKKKRKAKKAARKKKRKAARARAKARRKKAAKKKKKAKRK 
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USE main INDEX main 

sns = 'x' 

DO WHILE sns # " "| 

CLEAR. . 
Z,1 SAY "Add personal award and punishment records." 

2,00 SAY toda 

2,70 SAY TIME?) 

3,0 SAY ULINE 


t+°V-VaODO@ 


eonnene---- Get proposed service number. 
sns = SPACE(8) , | 
Sonia SAY "Enter service number ( or press RETURN to exit)" GET sns 


Keene ne---- Check to see 1f service number already exists. 
sns = LOWER(sns) 
SEEK sns 
DO CASE 
Keancoone If user did not enter a service number, 
Renw----- Clear the screen and return to UP_AW _PU menu. 
CASE sns = '' 4 
CLEAR . ; 
Keenan n- If service number does not exist, 
Kewennn- notify user and allow another try. 


CASE .NOT. FOUND() } 
@ 20,10 SAY sns + "does not exist! 


? CHR(7 

WAIT | . 
Re mnnn-- If service number already exists, 
Keeennnn let user add it. 


CASE FOUND() 
USE aeperreeiNDEX a_p_mn 


4-5-6552 Set up loop for adding personal award and 
Rew ane------- punishment records. 
order v=Flg" 
DO WHILE order # " " 
CLEAR 


@2,1 SAY "Add personal award and punishment records." 
,00 SAY ee 


Renannnn---- Get proposed personnel order. 
order = SPACE(20) 
@15,5 SAY "Enter personnel order (or press RETURN to; 


exit)! 

Seheto SAY "(e.g --->86-100 ARMY)" GET order 

*-= Check to see if service number already exists. 

SEEK sns 

DO CASE . 
Rewnn--- Peecet C1 Onno semetemect personnel, Order, 
Keonenn= Clear the screen and return to previous 
Reweena= program. 

. CASE orden — "' " 

CLEAR 
Reenenn- If service number does not exists, 
Reennon- add a personal award and punishment 
Remono-- records to A_P_MN file. 


CASE .NOT. FOUND() 
APPEND BLANK 
REPLACE p_order WITH order 
REPLACE sn WITH sns 


Kemnnnn- If service number already exists in the 
Kemeon-- A_P_MN file, check to see 1£ personnel 
Keanna n order already exists in the A_P_MN file. 
CASE FOUND() 

FIND &sns 
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COPY TC temp WHILE sn="sSsns" 
Use Lene 
INDEX O p_order TO temp 
USe= temp INDEX temp 
order = LOWER(order) 
SEEK order 
DO CASE 

CASE FOUND() . 

@ 20,10 SAY order + "already exists" 


? CHR(7 

WAIT 

Remnnnnn Tf personnel order not already taken; 
Kenan --- let user add it. 


CASE .NOT. FOUND() 
USE a2 pon, INDE xAsasbemn 
APPEND BLANK 
REPLACE p_order WITH order 
REPLACE sn WITH sns 
ENDCASE 
ENDCASE 
: ENDDO(While user does not enter blank for personnel; 
order. 


es 
ENDDO(While user does not enter blank for service number.) 
KRemnnnnnnnn= Return to UP_AW_PU menu. 
RETURN , : ° : 
g. UPEVAL.PRG 


REKAARAKRKRKKRKKAKKAKRKKKKRAARAKRRKKKKRARKKRKKEKRKKRKKRKEKRKKKRKAKRKKKKKAKKRKKKKRKRERKRRAAARR 


* Module name :UPEVAL.PRG | 

* Author :KIM, SAM NAM 

* Date :22 NOV 86 

x Purpose :sThis 1s the UPDATE module =-oreaeernd terscuaias 

x erformance evaluation records to the P-EVAL file. 

a t sets up the add performance evaluation ecords, 

a accepts input from the user and calls the required 

‘3 modules. When control is returned from the called module, 
. the user iswasked 1£ more IniGumatron 2s Bequired sane 
s the pueeces 1s repeated, or control is passed back to 
* the UPDATE module. 

* Called by : UPDATE 

* Modules called :SCREEN7 

Peed Des Seca . 

z Global : 1 : holds the value of the user input. 

S today: holds date 

* Local : none 
KAKKARARKKRKARAKAKKKAAAKKAKARARKAK AKA RARARRARARKAKARAKKAAKAKRARKA RARER AR 
£5 Set up loop for adding personal performance evaluation. 


KREKAAAKKAKAKKKAAKAKARAKKAKAKKRAKRKRKRAKRKEKKKAKRARKRKRERKRRKEKKKRKARKRKRKRRERARRARKRKARRAKRKAKKRERRAER 


USE main INDEX main 
sns = I sgil 
DO WHILE sns # " "! 
CLEAR , 
@ 2,1 SAY "Add personal performance evaluation records." 
@ 2,60 SAY today 
2,70 SAY Tin 
g 3,0 SAY SULT 
; 


ke oa-------- Get proposed service number. 

sns = SPACE(8) | | 

Sac SAY "Enter service number ( or press RETURN to exit)" GET sns 
= 


eoccr----- Check to see 1f service number already exists. 
sns = LOWER(sns) 
SEEK sns 
DO CASE 


eoen--- If user did not enter a service number, 
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Keooo--- clear the screen and return to UPDATE menu. 


CASE sns = "! # 

CLEAR 
Reenenne Ef s@fvice number does not exist, 
Keenna-- notiry user and allow another try. 


CASE .NOT. FOUND() | 
@ ear sns + "does not exist." 


? CHR(7 

WAIT 
Keanna n- If service number already exists, 
Pie tae aca let user add it. 


CASE FOUND() 
USE p_eval INDEX p_eval 


Reman nnannnnn- Set up loop for_ adding personal 
mime =) 7 performance evaluation records. 
rdate = "xX 


DO WHILE rdate # " " 
CLEAR 
@ 2,1 SAY "Add personal performance evaluation; 
@ 2,60 SAY ae 


@ 2,70 SAY TIME 
¢ 30 Shee INE 
3 


mecorads.'' 


Kew ennn----- Get proposed rating date. 
rdate = SPACE(8) } 
@15,5 SAY "Enter rating date (or press RETURN to; 


oe SAY "(e.g --->MM/DD/YY)" GET rdate 
*==- Check to see if service number already exists. 
SEEK sns 


Bee) . | 


Kewnnnnn If user did not enter a rating date, 
Remnnann clear the screen and return to previous 
Reannnnn program. 

CASE rdate = " '! 

CLEAR 
Renancoee If service number does not exists,add 
Rencnnoe a peusonae performance evaaluation record 
Oo P_EVAL file. 

CASE .NOT. FOUND() 
APPEND BLANK 
REPLACE ratingdate WITH rdate 
REPLACE sn WITH sns 
SET FORMAT TO screen? 


READ 

SET FORMAT TO 
Keono--- If service number already exists in the 
Reeeeen- Peden Le, check to see St pare 
Reecno-- date already exists in the P_EVAL file. 
CASE FOUND() 

FIND &sns 

COPY TO temp WHILE sn="&sns'"' 

USE tem 


INDEX ON ratingdate TO temp 
USE temp INDEX temp 
rdate = LOWER(rdate) 


SEEK rdate 
DO CASE 
CASE FOUND() ' 
@ 20,10 SAY rdate + !! " + "already exists.!! 
? CHR(7) 
WAIT | 
Keennnn= If rating date not already taken, 
Remon -- Pet wuser add it. 


CASE .NOT. FOUND() 
USE p_eval INDEX p_eval 
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APPEND 2LANK 

REPLACE ratingdate WITH rdate 
REPLACE sn WITH sns 

SET FORMAT TO screen7 


READ 
SET FORMAT TO 
ENDCASE 
ENDCASE 
ENDDO(While user does not enter blank for personnel; 


ENDCASE 
RE INDEX 
CLEAR 
Eure es user does not enter blank for service number) 
h. UPCAREER.PRG 


KRARERRARRARRKERARRARRARRRRRARKERERRRRKERRRRRRKRRKRRRRRRRRRRRRRRRRKRRRRRRRRRKARREARE 


order. 


Module name :UPCAREER.PRG 

Author :KIM, SAM NAM 

Date :22 NOV 86 

Purpose :This is the UPDATE module for adding personal 


military careers to the GAREERSmiame. 

It sets up the addvassiqnmenceaecorcac: 

accepts Inpueetrompene User eanceca lt mene 

required modtiles-swWhen Cccntrol TS Sher Gnecus 

from the called module, the user is asked if more 

information is required and the process is repeated, 

or control is passed back to the UPDATE module. 
Called by : UPDATE 
Modules called = SCREENS 
Vaulaoles usec am 

Global : 1: holds the value of the user input. 
today: holds date 


Local ~s:smone 
KRARKKAKAKR AAA RAR AK ARARARARKAARARKAAA RA RAKRAKAKAKARAKARARKK AKARK RA RARER 
a Set up loop for adding military career. 


USE main INDEX main 
ene = Neg ll 
DO WHILE sns # "' " 
CLEAR | 
@2,1 SAY "Add assignment records" 
2,60 SAY toda 
2,70 SAL TIME?) 
3,0 SAY ULINE 


> Si SD, SD SI SI SO Sa as MS So 


wer ceee---- Get proposed service number. 

sns = SPACE(8) . 

ee: SAY "Enter service number ( or press RETURN to exit)" GET sns 
A 

x 


woe ------- Check to see if service number already exists. 

sns = LOWER(sns) 

SEEK sns 

DO CASE 
Kaweon-- If user did not enter a service number, 
Reeenn-- clear the screen and return to UPDATE menu. 
CASE snc = os. 
CLEAR , 
Rene ---- If service number does not exisc, 
Renna -- notify user and allow another try. 


CASE .NOT. FOUND() 
Q@ eaeeeae sns + "does not exist.!! 


Grice 

WAIT | 
Keene nn- If service number already exists, 
Keo----- let user add it. 


CASE FOUND() 
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USE Careers iNDEX careers 
cae weeweccen Set up loop for adding assignment records. 
es = Nyt 
DO WHILE order # " 
CLESR 
2,1 SAY "Add assignment records." 
2,60 SAY today 
Ze 70 SAY TIME() 
3,0 SAY ULINE 


AV VOMOM 


<2 Get proposed personnel order. 
order = SPACE(20) 
@15,5 SAY "Enter personnel order (or press RETURN to; 


ee SAY "(e.g --->85-100 army)" GET order 
xe= Check to see if service number already exists. 
SEEK sns 
DO CASE 
ee----- If user did not enter a personnel order, 
A eee---- clear the screen and return to previous 
Reewennn program. 
CASE order = " " 
CLEAR 
Reeenen= If service number does not exists,add 
Reewnene enero nas asignment record. to CAREERS 


oe 
CASE .NOT. FOUND() 
APPEND BLANK 
REPLACE p_order WITH order 
REPLACE sn WITH sns 
SET FORMAT TO screens 
READ 
=o Le ORMATe LO 
Rewnecnn If service number already exists in the 
Kewecnn- CARBERS “izle, check®™to seéy1f personnel 
Kewncwon order already exists in the CAREERS file. 
CASE FOUND ( ) 
FIND &sns 
COPY TO temp WHILE sn="&sns" 
USE temp 
INDEX On PS order TO temp 
Use, temp [INDEX temp 
order = LOWER (order) 
SEEK order 
DO CASE 
CASE FOUND() | 
(ieee SAY sondern areal "+ "already exists." 
? CHR(7) 
WAIT 
Reenecce If personnel order not already taken, 
Kewecenn let user add it. 
CASE .NOT. FOUND( ) 
USbeecareers  NDEX careers 
APPEND BLANK 
REPLACE p_order WITH order 
REPLACE sn WITH sns 
SET FORMAT TO screens 
READ 
Sel FORMAT 10 
ENDCASE 
ENDCASE 
ENDDO(While user does not enter blank for personnel; 


@mit).!' 


order.) 
ENDCASE 


CLEAR 
ENDDO (While user does not enter blank for service number) 
eo allel aaa Return to UPdADATE MODULE. 
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RETURN 


6. EDIT.PRG 


KEKKKAKKKKKRKRKKKKKRKKKRAKAKRKRKRKRKARKKRKKEKRKKRKARREKRARKAKRRARRRKARKRRKAKRRKRKRKEKRAKRKRAERE 


Module name =EDDE ERG 

Author 2: PARK eo ae, SOCK 

Date :16 NOV 86 
Purpose :This is the DRIVER module fcrMeneseh ee iaceron 


It sets up the main edit menu, accepts input 
from the user and calls the required modules. 
When control is returned from the called module, 
the user is asked 1£ more information go nequired 
and the process 1s repeated or control is passed 
back to the DRIVER module. 
Called by : DRIVER 
Modules called :MENUSCR, EDEXPERT, EDEDUCAT, EDPROMOT, EDAWARD, 
EDPUNISH, "EDEVAL, EDCAREER 
Vai tables Usecuaums 
Global : 1 : holds the value of the user input. 
today : holds date 
Local : none 
RAKAAAKKAKARKKAAAKRARKAKAKARKAKAKAKKAKAKKAKKAARKKKAARAKAAAAKKARARKAAKKRK RARER 


x Set up loop for presenting menu. 
KRAKKKKRKKAAKAKAKKARKKRKAKK AAA AAAKK AKA AK A KARRKRARKAKKRKARKKARKKAKRARRKARRR 


HO OO OO OO OOO 


> CLEAR . 
DO WHILE S22. 
CLEAR 
DO MENUSCR 
e220 Say aE cD yen PE LR SeOe Sea R Eee RD” 
@6,34 SAY "SUBMENU" 5 
@ 19,33 SAY "INFORMATION" 
@9,5 SAY "A. Edit personal personne) recorans 
@10,5 SAY "B. Edit expert mecora.. 
@ 11,59SeY "CG. Sdit military educsatvca. 
@ 12, GRSey se amesulee . 
@ 13,5 SAY “Dw Edit’ promotion, recogan 
@14,5 SAY "E. Edit award and punishment record." 
@9,42 SAY "F. Edit performance evaluation" 
@ 10,45 SAY " record." | 
@11,42 SAY "G. Edit assignment record." 
@13,42 SAY "I. Change dafe" 
@14,42 SAY "X. Return to main menu!! 
G@ 20S .s5aY BAte TIMES 
@ 20,55 SAY“ UEDAIED BY" 
@ 21,5 SAY today 
@ 21,19 SAY TIME() 


*@ 21,52 SAY gname | 
@ 23,10 SAY “|Enter selection (A =G) i =ceen to return to nai 
@ 23,57 SAY " menu) enh! 
DOMWH EEE. are 
1=0 ' 
DO WHILE i=0 
1=INKEY() 
@ 21,19 SAY TIME() 
@ 23565) Saq 04 
re UPPER (CHR) ae 


ENDIF 
i=0 
ENDDO | 
@ 23,65 SAY UPPER(CHR(i)) 
IF .NOT. CHR(i)$"Ti" 
EXIT 
ENDIF 
SET COLOR TO N/W 
@ 19,33 SAY "INFORMATION! 
@ 13,42 SAY "I. CHANGE DATE" 
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SET COLOR TO W/N 
1,5 GET today 


READ 
@ 21,5 SAY today 
@ 19,33 SAY "INFCRMATION' 
@ 13,42 SAY "I. Change date" 
G23 65 say” 
ENDDO 
DO CASE | 
CASE CHR(i)S$ "Xx" 
CLEAR 


RETURN | 
CASE CHR(i)S"Aa!! 
DO EDMAIN 
CASE CHR(i)S$'"Bb! 
DO EDEXPERT 
CASE CHR(i)S"Cc! 
DO EDEDUCAT 
CASE CHR(i)S$"'Dd' 
DO EDPROMOT 
CASE CHR(i)S"Ee! 
DO ED_AW_PU 
CASE CHR(1i)$"FE£" 
DO EDEVAL 
CASE CHR(i)S$"Gg!! 
DO EDCAREER 


ooo when done, return to main menu. 


URN 
a. EDMAIN.PRG 


KAKKKKKRREKKKKKKKKKEKKKEKKKEKKKAKKKKEKRAKRKKRKAEKKKEKKKEKKARKKREARKREAKKRAKRKKKKRERKRK 


Module name :EDMAIN.PRG 

Author oA OK 

Date :22 NOV 86 a 

Purpose :This is the EDIT module for editing personnel record. 


It sets up the edit prsonal personnel record, 
accepts input from the user and calls the 
required modules. When control is returned — 
from the called module, the user is asked if more 
information 1s required and the process is repeated, 
or control is passed back to the EDIT module. 
Called by oe 
Hedules called :SCREENI1 
fetal leés used = 
Global : 1 : holds the value of the user input. 
today: holds date 


Local : none 
KREEKKKEKKKRKRRAKRAKKRARERKKKRKERKEREREREKEREKRKREREEEKEKKRRKEREREEEKKKRKKK 


Set up Loop for editing personnel record. 
KAAKKEKKKKKKKKKKARKKKKAKRKREKRRARERKRKAERRRKAAKRRKKERERERERRRKKEKERRREKKREAKK 
USE main Index main 

sns = HWsgit 

DO WHILE sns # " " . 

Kem nennnnnn- Find out what service number to edit. 


@2,1 SAY "EDIT PERSONNEL RECORD!! 
@ 2,60 SAY toda 

@ 2,70 SAY TIME) 

@ 3 
5 
s 


OO OO OO a 


,O SAY ULINE 


Reecconecn-- Get proposed service number. 

sns = SPACE(8) 

@15,5 SAY "Edit for what service number ( or press RETURN; 
eOuexit)'! GET sns 


oo-------- Try to find that service number. 
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sns = LOWER(sns) 
Sfif&K sns 


DO CASE 
Keenreon= If no service number entered, return to EDIT menu. 
CASE sns = " 
CLEAR 
Keenan -- If service number found, edit using SCREEN1 format. 


CASE FOUND() 
SET FORMAT TO screen 
READ 
"SET FORMAT Te. 
Reseren= Otherwise, warn user and allow another try. 
CASE .NOT. FOUND) | 
@ 17,5 SAY “There 15 no. ("4 sno seanumeme 
@ 24,5 SAY "Press any key to try again..." 
WAIT Wo 
ENDCASE oo | 
ENDDO(Continue editing until user requests exit) 
WO OI Return tO EDIT menu. 
RETURN 
b. EDEXPERT.PRG 


KKAKKAKAKAKKAKKARKRAKAKKKKAKKAKKKKKKKKKKAKKKKAKKAKKKAKKARKAKAKKRAAKKAAKKAK AK 
* Module name :EDEXPERT.PRG 


* Author >KIM, SAM NAM 

* Date :22 NOV 86 .§ 

* Purpose :This is the EDIT module for editing an experterecouae 
* It sets up the edit expert record, accepts input from 
Zs ‘the user and calls the required modules. 

x When control is returned from the called module, 

‘3 the user is asked if more information is required and 

* the process is repeated, or control is passed back 

= to the EDIT module. 

* Called by ; EDIT 

* Modules called : SCREENS 

* Variables used : | | 

2 Global : i : holds the value of the user input. 

a today: holds date 


Local : none 
KAKAKKKKAKERER KAR RK RAKE KAAK RAK KR KAK KAR KAKA KAKA KERA EK KAR KAKA KKAKAK KAKA 


5 Set up loop fou editing an expert record. 
KKARKKKAKKKAAKKKKKRKKKKKKKKKK KKK RAKE KKK KKKKKKKKKK KKK KKKKK KARR RRA RRR KKK KR 


USE expert INDEX GXpPereE 


title = "x 
Seo eg tl 
DO WHILE “sns # UU als CLE leur =. . 
Reen-eeona- Find out what service number to edit. 
CLEAR 


@2,1 SAY “EDIT EXPERT RECORD! 
@2,60 SAY today 

@ 2,70 SAY TIME() 

g 3,0 SAY ULINE 

3 


Kaa = a =a =e Get proposed service number. 

title = SPACE(20) 

sns = SPACE(8) | 

@ 15,5 SAY "Edit for what service number ( or press RETURN; 
oe GET sns 


@ 15,5 SAY "Edit for what expert title ( or press RETURN; 
to cio GET title 


eoccee---- Try to find that service number. 
sns = LOWER(sns) 
SEEK sns 


eoce--- If no service number entered, return to EDIT menu. 
CASE sns = "! !! 
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CLEELR 
CASh title= " " 


crccecce- If service number found, edit using screen9 format. 
C&SE FOUND() 
Deeeespert INDEX expertitle 
sns = sns.- + title 
sns = lower(sns) 
SEEK sns 
IF FOUND() 
SET FORMAT TO screen9 
READ 
SET FORMAT TO 
Poor 
@ 5,0 CLEAR | 
Cees esay tltLe + " Not found" 


Keeenone Otherwise,warn user and allow another try. 
CASE .NOT. FOUND() 

@17,5 SAY 'There is no " + sns + " number.' 

@ 24,5 SAY "Press any key to try again..." 


WAIT ‘ot 
ENDCASE _ | | 
ENDDO(Continue editing until user requests exit.) 
Keewcnewenn= Return tO EDIT menu. orn 
RETURN 


c. EDEDUCAT.PRG 


RARKKRKKARKKKAKKKRKKKKRKKRARKRRKRRRRRRRRRKRKRRRRKRAKRKRKRRKRRKRKRKKRKKRKARKKRKRARARRRRR 


OF ORO OR RR EO RO Ok OF 


* 


Module name :EDEDUCAT.PRG 


Author sPARK, JAE BOCK 
Date :22 NOV 86 ne cm 
Bunpose sThis is the EDIT module for editing military education 


record, It sets up the edit military education result, 
accepts input from the user and calls the 
required modules. When control is returned 
Pacmeenew called module, thewtser 15 asked “if more 
iipormaclon 1s required and the process is repeated, 
or control is passed back to the EDIT module. 
Called by Ale 
Modules called : none 
weuables usedg: — 
Global : i : holds the value of the user input. 
today: holds date 


Local : none 
KARAKKAKKKRKKRRKKKAKREKKKARKERERKKARRKRKR AKER KKKKEKKRKRERERRKRKRKRERKRKKER 


Poeauperocpm ror Editing education result. 


KRARKAKKAKKRKRKKKKRAKKRARKRKARRKARRARRRKARARRRKKRRRRARRRRKRARRRRRKRKKRRRRRRARRRRRRKRARKA 
CLEAR 


DO WHILE .T. | 

* DO WHILE .T. means DO WHILE TRUE i.e. Do forever 

* The DO WHILE will be terminated by an EXIT command. 

* Clear the screan and display the main menu. 

DO MENUSCR 

Meee oaAyY "EF DIT MILITARY Ee Ue Cen ba ON! 
G@pooe SAY "SUBMENU" 

19,33 SAY "INFORMATION! | 

Pome eeeewnsare military education result." 

11,21 SAY "B.Edit personal education result." 

met SAY "'C. Change date'!! 

ime Zl SAY 'X. Exit 

moe s. say "DATE ace 

20725 say “UPDATED BY" 

21,5 SAY today 

Ao Say TIME () 

*@ 21,52 SAY gname 

mee 20 SAY "“'— Enter selection ( A - C, or X to Exit ):: ]" 


DVIOADADD Mo a 
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DO WHILE .T. 

1=C 

PO WHILE i=0 
1=INKEY() 
@ 21,19 SAY TIME() 
G25 Sag onl a. 
iF UPPER(CHR(i))S"ABCX" 

EXIT 


ENDIF 

i=0 
ENDDO | 
@ 23,54 SAY UPPER(CHR(i) ) 
IF .NOT. CHR sce! 

BALL 


ENDIF 
SET COLOR TO N/W 
@ 19,33 SAY "INFORMATION" 
@12,21 SAY "'C. CHANGE DATE" 
SET COLOR TO W/N 
@ 21,5 GET today 
READ 
@ 21,5 SAY today 
@ 19,33 SAY “INFORMATION! 
@ 12,21 SAYs"e> Ghange dace! 
@ 23,54 SAY " 
ENDDO 
DO CASE . 
CASE CHR(i)S '"'Xx!! 
CLEAR 
RETURN _ 
CASE CHR(i)S''Aa" 
DO ED_M_ED1 
CASE CHR(1)$"Bb" 
DO ED_M_ED2 
es 


ee ee Return to EDIT menu. 
1. ED_M_EDI.PRG 


KARKARAAKAKKARAKAAKAAKARARAAKAARKARAARAKK KAKA RARARKAARAAKAAAARARAAKARKARK 
* Module name :ED_M_ED1.PRG 

x Author sKIM, SAM NAM 

* Date :22 NOV 86 — - 

:This 1s the EDEDCAT module for editing military 


+ 
‘~ 
ry 
'O 
Oo 
” 
om 


x education results. It sets up the edit military education 
x result, accepts input from the user and calls the 
a required modules. When control is returned | 
a from the called module, the user is asked if more 
s information is required and the process) is fepeaceay 
- or control is passed back to the EDEDUCAT module. 
* Called by : EDEDUCAT 
* Modules called :SCREEN31 
* Variables used : | 
ss Global : i: holds the value of the user input. 
a today: holds date 
« Local : none 
KARKRAKARARARAKAARKRAKARKKKAKKAKRKRKARAKKEKAAAKAREKAKKRAKARARARARAKAARAKA 
43 Set up loop for editing personnel record. 
RAKAKAKAKAKARARKKEAR ARK RAKARARKARK KR ARRAK ARK AAA RARARARARARARARARRARARRE 
USE m_educat Index m_educat 
class = "x! 
DO WHILE class # " " 
Row 222233 Find out what class name to edit. 
CLEAR 


@ 2,1 SAY “EDIT MILITARY =DUCATION RESULTS. 
@2,60 SAY toda 

@ 2,70 SAY TINE() 

@ 3,0 SAY ULINE 


152 


KRenwenercowe Get propcsed class name. 

class = SPACE(20) 

@15,5 SAY "Edit for what class name ( or press RETURN; 
to exit)! GET class 

READ 


~--------- Try to find that class name. 

class = LOWER(class) 

SEEK class 

DO CASE 
Kemwooe- If no class name entered, return to EDCAT menu. 
CASE class =" " 
CLEAR 
Reooooe- If class name found, edit using SCREEN1 format. 


CASE FOUND() 
SET FORMAT TO screen3l 
READ 
SET FORMAT TO 
Keenrenn Otherwise,warn user and allow another try. 
CASE .NOT. FOUND() | 
Cee owoace Tnere is no ' + class 
@ 24,5 SAY "Press any key to try again..." 


WAIT iyo 
ENDCASE | | 
ENDDO(Continue editing until user requests exit.) 
Keeernnenen- Return tO EDCAT menu. 


2. ED_M_ED2.PRG 


RAEKKAKKKKKARKKRKRKEKKRKARKKKKRKAKAKKKRKRKRKAKKKRKRKRKKRKRKRKKRKRKRKRKKRKKKRRKREKKRKRKKRKKRKRKRAKAKRERE 


Module name :ED_M_ED2.PRG 

Author :KIM, SAM NAM 

Pate :22 NOV 86 

Purpose :This 1s the EDEDCAT module for editing personal 


education results. 
Tt sets up the edit personal education result, 
fegepes input from the user end calls tne 
required modules. When control is returned | 
peomecie called module? the uséseas asked 1f more 
information is required and the process is pEDeated, 
or control is passed back to the EDEDCAT module. 
Called by : EDEDCAT 
Modules called : SCREEN21 
Variables used : 
Global : i: holds the value of the user input. 
today: hoids date 


Local none 
KAKKKKKAKAKRRRKARKARAKKKRAKKRAKARAKAKARAK AKA RRAA KA AKKAAKAKAKKKAAAKAKAKAK RAK 


Set up loop for editing personal education result. 
KAKKAAKKAKKARKARRARKARKAR RRA RKAKKAKRARAKAAAKAKAARAKAAKAARKAAKKAAKAARAAAKAARAKR 


USE educatmn INDEX educatmn 


AO Oe OO Oa 


> 


name = !'x!! 
ens. = Welt 
DO WHILE sns #" '" .OR. name #" " ; 
“oa wooo --- Find out what service number to edit. 
EAR 
@ 2,1 SAY "EDIT PERSONAL EDUCATION RESULTS" 
@ 2,60 SAY toda 
@ 2,70 SAY TIME() 
¢ BrvesAY ULINE 
? 
ee ee a le l= Get proposed service number and class name. 


name = SPACE(20) 

sns = SPACE(8) 

@15,5 SAY "Edit for what service number ; 
' GET sns 

READ 


[5s 


@ 17,5 SAY "Edit for what class name" 
@1&,7 SAY "( or press RETURN to exit)! GET name 


READ 
Kewweeeren- Try to find Glaet service mugoen. 
sns = LOWER(sns) 
SEER Sits 
DO CASE . 
Keeeceee If no service number entered, return to EDIT menu. 
CASE sns = " 
CLEAR 
CASE name = " " 
CLEAR / : 
Keenrene If service number found, try to find that class name 
Keenne- and edit using screen21 format. 


CASE FOUND() 
USE educatmn INDEX ccname 
sns = sns t+ name 
sns = lower(sns) 
SEEK sns 
IF FOUND( ) 
SET FORMAT TO screen21 
READ 
SET FORMAT TO 


ELSE 
@5,0 CLEAR 
@15,5 SAY name +" £Not found! 
7 eres) 
WAIT 
ENDIF | 
cocceee= Otherwise,warn user and allow another try. 
CASE .NOT. FOUND() . 
@ 177 5eoe. there 1s Nowe =a sns 
@ 24,5 SAY "Press any key to try again..." 
WAIT I] Tt 
ENDCASE a . 
ENDDO( Continue cone until user requests exit.) 
Ke wnnennno-- Return tO EDEDCAT menu. 
RETURN 
d. EDPROMOT.PRG 


KEK KKKKKKKKKRKRKKKRKRRKRKRKRKKRKRKRKRKRKRKRKKKRRKKRKRKRRRKRKRKRKRKKKRKKRKKRKKRRKRRKRKKRRRKKRKI 


Module name :EDPROMOT.PRG 

Author :KIM, SAM NAM 

Date :22 NOV 86 an 

Purpose jthtos the. sr hemod | lemstol edieing pr omen! 
records. It sets up the edit promotion record, 


accepts ‘Input from the User vangeeatsscue 
required modules. When Contho Pero mee tUnuecms 
from the called module, the user is asked 1£ more 
information is required and the process is repeated, 
or control is passed back to the EDIT module. 
Called by : EDIT 
Modules called : none 
Variables used: | 
Global : i : holds the value of the user input. 
today: holds date 


Local : none 
KKKKAKKKKKKKERKKRREKKEKKRKKAKEKKKKKKKKKRKKKKKAKKAKKKKAKKAKKEKKAKKAKERE 


* Set up loop for editing education result. 
KAAKKAKAKKAKAKRAKRAKAKRAKKKAAKKRRKERK EKA KARR AKKAKAAKKRAKKAKKKKKKARKKAKARK 
CLEAR 

DO WHILE .T. } 

x DO WHILE .T. means DO WHILE TRUBS eon oueve. 

* The DO WHILE will be terminated by an EXIT command. 

* Clear the screan and display the main menu. 

Do: TENUSER 

@ 2,12 SAY "EDIT PRM Oulol OME re eee 

@ 6,36 SAY "SUBMENU" 

@ 19,33 SAY "INFORMATION" 


A OO OO OOO aH 
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@ 10,2. SRY "A.Edit promotion récord." 

@i1,21 S&Y "B.Edit personal promoticn record." 
@i2,21 SAY "C.Change date" 

mes ,21 Say "kX. Exie" 

@ 20,8 SAY "DATE TIME 

@ 20,55 SAY "UFDATED BY" 

@ 21,5 SAY Eoeoy : 

@ 21,19 SAY TIME() 


*x@ 21,52 SAY gname . 
emer ofy | [| Enter selection ( A - C, or X to Exit ): : J" 
BO WHILE .T. 


1=0 

DO WHILE 1=0 
1=INKEY() 
Omid SAY TIME () 


@ 23,54 | 
IF UPPER(CHR(i))$"ABCX" 
EXIT 


ENDIF 
1=0 
ENDDO | 
@ 23,54 SAY UPPER(CHR(i)) 
Bae NO i CUR(1)S"Cc! 
BAG 
ENDIF 
SET COLOR TO N/W 
@ 19,33 SAY: INFORMATION" 
2 Zoe ©. CHANGE DATE" 
SET COLG@RM LO W/N 
@ eg GET today 


REA 

@ 21,5 SAY toda 

@19,33 SAY "INFORMATION" 
Obie el say €. Change date" 
epz3,54 Say " " 


ENDDO 


DO 


CASE | 

CASE CHR(i)S "Xx"! 
CLEAR 
ETURN | 

CASE CHR(i)$"Aa"! 
DO EDPROMO1 

CoSEeeR (1) s"'Bb" 
DO EDPROMOZ 


ENDCASE 
ENDDO 
bees s------- Return to EDIT menu. 
RETURN 

Il. EDPROMOL PRG 

KARAKRARKAKKAR KKK ARK ARK RK AK KRK KK KAR KRKAKKERKARKRAAKKREKAKKAKARKRAKAK KAKA RK 
* Module name :EDPROMO1.PRG 
* Author :KIM, SAM NAM 
x Date :22 NOV 86 
* Purpose Seem toeeie EDEROMO? module for sediting promotion 
as Geeoucweheasees Upmene edliteenomonton Record, 
a Acces elibUc TrOmecic User angeealice che 
* required modules. When control is returned | 
: feomecne called modules Chemiuser musi askedelf more 
zs imommatlon 2s redulned and the process is repeated, 
* or control is passed back to the EDPROMOT module. 
* Called by ; EDPROMOT 
* Modules called :SCREEN41 
* Variables used : 
eS Global : i: holds the value of the user input. 
- today: holds date 
a Loca : none 
KAKKKKKKKK ARK AAA KKK KKK RKKKKKK KAKA KK KK KARR RRA R RAK KEK RRRKAK IKKE RR 
& 


Set up loop for editing PROMOTION record. 


i 


KEKE ERAKRREKRKREKE ER RKKKKEKEREREKREKRERERER KR KA REREREREREREERERAKKAE AK 
USE rank Index rank 


order = !!y'! 

DO WHILE order #" " ; 
Keer ecoonnn- Find out what promoticn order to edit. 
CLEAR 


@2,1 SAY "EDIT PROMOTION RECORDS" 
@ 2,60 SAY toda 

@ 2°70 SAY TIME) 

¢ 3,0 SAY ULINE 

a 


* soe eee eee Get proposed promotion order. 

order = SPACE(20) 

@is,5 SAY "Edit for what promotion order ( or press RETURN; 
to exit)" GET order 


READ 
Keener eo--- Try to find that promotion order. 
order = LOWER(order) 
SEEK order 
DO CASE ) 
Keenccce Leno promotion order entered, return to EDPROMOT menu. 
CASE erdery—a a" 
CLEAR | | 
Reenco-- If promotion order found, edit using SCREEN4 format. 
CASE FOUND() 
. SET FORMAT TO screen4l 
READ 
SET FORMAT TO 
Reeene-- Otherwise,warn user and allow another try. 
CASE .NOT. FOUND() 
CLEAR 


@ 1735 SAY7 "There lsmnco + onde maa 

@ 24,5 SAY "Press any key to try again..." 

WAIT it ot 

ENDCASE — . 
ENDDO(Continue editing until user requests exit.) 
SSS ea ae Return tO EBEROMO? mena: 
RETURN 
2. EDPROMO2.PRG 


REAKAKKKKRKERERKEKRKRRKRKRRRKRKRRRRKRRRERRKRRRRRRRRKRKRRKERKRERKRRRRRRERRRERRRKRKRRRERRERRER 


* Module name :EDPROMOZ.PRG 
* Author :KIM, SAM NAM 
* Date :22 NOV 86 
*x Purpose :This 1s the EDPROMOT module for editing personal . 
> promotion record.It sets up the edit personal promotion 
: record, accepts input frometmemsoueancecal> stme 
* required mocules. When control is returned 
- from the called module, the user is asked if more 
; information 1s required and the process is repeated, 
2 or control is passed back to the EDPROMOT module. 
* Called by : EDPROMOT 
* Modules called 
* Variables used : 
x Global : 1: holds the value of the user input. 
= today: holds date. 
z Local : none 
KKAKARAAKKKKRARARKKKAKKKRAK AA AKRAKKKARKRRERKRRERERERKARRARRKARARRERERRRRER 
Set up loop for editing personal promotion record. 
KRAKKAKAKKRKAKKKRKA RK RAR ARK KARA RK RAR RKARKARKAAKARRR AKER ARRARARKRKRKRK A 
USE promote INDEX promote 
order = ""x" 
sass MWg lt 
DO WHILE sns # =) .OR- OnGe hau 

Dee Find out what service number to edit. 

CLEAR 


@ 2,1 SAY "EDIT PERSONAL PROMOTION RECORDS" 
@ 2,60 SAY today 
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@ 2,70 SAY TIME() 
g D7 Oe2e, UlewNe 
e 


Kacanananane Get proposed service number and promotion order. 
order = SPACE(20) 
sns_=_SPACE(8) | i, : : 
@ 15,5 SAY "Edit for what service number . . 
' GET sns 
READ 


@17,5 SAY "Edit for what promotion order" 
@ fee! SAY " ( or press RETURN to exit)" GET order 


RE 

Keeocncenn= Try to find that service number. 

sns = LOWER(sns) 

SEEK sns 

DO CASE | 
Keennen-- If no service number entered, return to EDPROMOT menu. 
ehoe sons = " " 
CLEAR 
CASE order =" " 
CLEAR . | | 
Reecoe- Heesenvice number found; try to find that promotion 
Keennn= order and edit it. 


CASE FOUND() 
USE promote INDEX p_order 
sns = sns + order : 
sns = lower(sns) 


SEEK sns 
IF FOUND() 
SET FORMAT TO screenl0 
READ 
SET FORMAT TO 
ELSE 
@5,0 CLEAR 
@15,5 SAY order + " Not found" 
? CHR(7) 
WAIT 
ENDIF 
Keseceee Otherwise,warn user and allow another try. 
CASE .NOT. FOUND() 
CLEAR | 
@17,5 SAY "There is no " + sns 
@ 24,5 SAY "Press any key to try again..." 
WALT 9 i 
ENDCASE . 
ENDDO (Continue eng until user requests exit.) 
Kenner anne- Return tO EDPROMOT menu. 


RN 
e. ED_AW_PU.PRG 


KRAKKKKKKKKKKKKKKKKKKKKKAKKKKKKKKKRKKARKKKRKKKRKAKRKRKKAKKKREKKKKKKKKKKKKKKKKKRKE 


Module name :ED_AW_PU.PRG 

Author :KIM, SAM NAM 

Date :22 NOV 86 a 
Purpose :This 1s the EDIT module for editing award and punishment 


ReconGoeiuacets pete €ditvdwakcdeana pumtshment record, 
Becepese MpuLmhon Ene User and calls the 
fequipecdenoauiles. When control is returned — 
Paetmeenescalled module, the User vis asked if more 
aieonmation 1s Kegutnred and Che process is repeated, 
or control is passed back to the EDIT module. 

Called by Ded 

Modules called : 

Variables used : : 

Global : 1: holds the value of the user input. 
today: holds date 


Local : none 
KAEKEKKKKKKKERKKKAKEKKKKERKRAKKKKKEKKKRKKEKRRERKKKKERKKKREKKKRREKRKRRKERKKAKKKKK 


MeO OO OO 


rey 


* Ses Up ys a ohe editing award and punishment record. 
Oe RKAKRKAKARRAKKRERARKREAKKEE RRR RAKRKRKKKKKAARKKKKKKREEA 
LEAR 
DO WHILE .T. 
* DO WHILE .T. means DO WHILE TRUE l.e. DO FOREVER 
* The DO WHILE will be terminated by an EXIT command 
* Clear the screan and display the main menu 
DQ MENUSCR 
@2,12 SAY "EDIT AWARD PUNISHMENT RECORD " 
@ 6,36 SAY "SUBMENU" 
@ 19,33 SAY “INFORMATIONS 
@ 10,21 SAY "A.Edit award and punishment points." 
@11,21 SAY "B.Edit award and punishment record.'! 
@ 12,21 SAY "C.Edit personal award and punishment record." 
@ 13,21 SAY "D . Change date.!! 
@14,21 SAY "X.Exit 
@ 20,8 SAY "DATE TIVE. 
@ 20,55. Sa YUPDA Teper aa 
@ 215 SA cod ay 
@ 21,19 SAY TiMe() 
*@ 21,52 SAY gname 
@ 23,10 say " [ Enter selection ( A - D, or X to Exit ): : J" 
DO WHILE .T. 
1=0 
DO WHILE i=0 
i=INKEY() 
-@ 21,19 SAY TIME() 
@ 23,54 Say "" 
IF UPPER(CHR(i))S$"ABCDX" 
EXIT 
ENDIF 
1=0 
ENDDO 


@ 23,54 SAY UPPER(CHR(1)) 
IF .NOT. CHR(1)$"Dd" 
BxLy 


ENDIF 

SET COLOR TO N/W 

@19,33 SAY "INFORMATION" 
@13,21 SAY "D. CHANGE DATE" 
SET COLOR TO W/N 

@ 21,5 GET today 

ee 


(eZ SAY toda 
@ 19 33 SAY "INFORMATION" 
@13,21 SAY "D. Change date'! 
@ 23,54 SAY ae. 
ENDDO 
DO eas 
CASE CHRGl) Ss 22x" 
CLEAR 


RETURN 
CASE See eatas 
DO EDAW PUL 
CASE GUR(D S$" Bb 
DO EDAW PU2 
CASE GUR(D) s'ce" 
DO EDAW_PU3 
jENDCASE 


wee een e--- Return tO EDIT menu. 
1. EDAW_PUI1.PRG 


KAAKAKKKKKKKKKRKKRKKAKKKKKRKKAKAKKAKKRKRKRKAKKKKKRKRKAKRKKRKRKRKRKKRKKAAKRAKKERKKRKAAKKKAARAKKE 


* Module name :EDAW_PU1.PRG 

* Author :KIM, SAM NAM 

* Date :22 NOV 86 i. 

* Purpose :This is the ED_AW_PU module for editing award and 
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punishment ponits. It sets up the edit award and 
punishment points accepts input from the user and 
calls quired modules. When contrel is returned 
EEonmetne called module, ~~ the user is asked 1f more 
information is required and the process is repeated, 
or control is passed back to the ED_AW_PU module. 
Cailed by : ED_AW_PU , 
Modules called : SCREEN51 
Variables used : | 
Global : 1: holds the value of the user input. 
today: holds date 


Local : none 
KKAKKKKKKKKKRAKARARRKKRKARKAKAKKAKAKAKAKARERKEKAKKKKKAKKAAKAKKKAAKKAKAKAKKAKAK 


* Set up loop for editing award and punishment point. 
KAKAKAKAKRAKAKAKKAAKKRARA RAK RR AKRAAERNA RK KAAKKAREK ARK AAKRAKKRARKRAKRRAKRKKK 


USE a_p_p Index a_p_p 

award Smien 

DO WHILE award # " " | ; 
Rewm mewn an Find out what award and punishment point to edit. 


Hee HHA RAHA 


@ 2,1 SAY "EDIT AWARD AND PUNISHMENT POINTS" 
@ 2,60 SAY toda 

ome, 70 SAY TIME) 

g 3,0 SAY ULINE 

2 
* 


ee ee Get proposed type of award and punishment. 
award = SPACE(30) | | 
@15,5 SAY "Edit for what kind of award and punishment'! 
@16,7 SAY "( or press RETURN to exit)" GET award 


READ 
Kew nnannne Try to find that kind of award and punishment. 
award = LOWER(award) 
SEEK award 
DO CASE | 
Rew mm man If no kind ot awardand punishment entered, 
Kem ennne return to ED_AW_PU menu. 
CASE award = " '! 
CLEAR | | 
Keccnwnn If kind of award and punishment found, 
Kawcccn= edit using SCREENS format. 


_CASE FOUND() 

SET FORMAT TO screen51 

READ 

SET FORMAT TO 
Keeococen Otherwise,warn user and allow another try. 
CASE .NOT. FOUND() 

CLEAR 

@i7,5 SAY "There is no " + award 

@ 24,5 SAY "Press any key to try again..." 


WAIT Wo 
ENDCASE vr | 
ENDDO (Continue editing until user requests exit.) 


were r----- Return tO ED AW _PU menu. 
2. EDAW_PU2.PRG 


RAKKAKRKAKAAKAKAKKAAKKAKAKAAKAAKKAAKAAKKAAKKKKKAKAAKAKAKKKAKAKAKARKAAKKAKAKKKK 
* Module name :EDAW_PU2.PRG 


- autae® a NAM 
ate 3 
* Purpose :This is the ED_AW_PU module for editing award and 
a unishment records. 
* t sets up the edit award and punishment record, 
- accepts input from the user and calls the 
x required modules. When control is returned 
* from the called module, the user is asked if more 
= information is required and the process is repeated, 


or control is passed back to the ED_AW_PU module. 
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* Called by : ED_AW_PU 

* Modules called :SCREEN61 

* Variables used : | 

Global : 1 : holds the value of the user input. 
today: holds date 


Local : none 
KAKKAKAAKKKE EKA KRARKAK RARER AKKK RA RAK RA RAAKKR RAK RARER AKER RAK RRERARARKR 


* Set up loop ‘for editing award and punishment Olin. 
KRAKKKKAAKK RE RKAR EAA RA AKKRARRRARKRRARKARRAKKRERKKAAAK AR AKKRRAKKRRARKKAKRKR 


USE awardpun Index awardpun 


+ + + 


award = "x 
DO WHILE award # " '"'! ; 
Rewer n enna Find out what award and punishment record to edit. 


R 

@2,1 SAY "EDIT AWARD AND PUNISHMENT RECORDS" 
@ 2,60 SAY today 

@ 2,70 SAY TIME() 

g 3,0 SAY ULINE 

2 


a eas Get proposed PRSONNEL ORDER. 

award = SPACE(20) 

@ 15,55 SAY “Edit -forewhae Peo u ne cane 

@16,7 SAY "( or press RETURN to exit)" GET award 


READ 
Rewnnnn---- Try to find that personnel order. 
award = LOWER(award) 
SEEK award 
DO CASE 
Reernnn- EE wc personnel order entered,return to ED_AW_PU menu. 
CASEwavard = 3" 
CLEAR | 
Raw nn If personnel order found, edit using SCREEN61 format. 


CASE FOUND() 
aan FORMAT TO screen6l 


READ 
SE? SPORMAL SIC: 
wso---- Otherwise, warn user and allow another try. 
CASE .NOT. FOUND() 
CLEAR 
@ 17,5 SAY inere ise@no " tea 
@ 24,5 SAY "Press any key to try again..." 
WAIT Ht soft 
ENDCASE + | | 
ENDDO(Continue editing until user requests exit.) 
Reem ne nnn Return tO ED_AW_PU menu. 


3. EDAW_PU3.PRG 


RKAKRKKRKRKRKRAKRKRRKAKKKRRKEKRKKRKRARRAKRKKRKRAKRKKRKRRKKRAKKRRKRKRKKAKKRRKKKRKRRKRRKRKAKAKAKRR 


Module name :EDAW_PU3.PRG 

Author :KIM, SAM NAM 

Date 322 OV (66 a 

Purpose :This 1s the ED_AW_PU module for editing personal 


award and punishment records. . 
Tt sets up the edit personal award and Dee récoray 
accepts input from the user ancmeqeeseric 
required modules. When control teerecurned 
from the called module, “tiemgicciwetsedcked lietome 
information 1s required and Ehe spocess is yepedted) 
or contrel is passed back to the ED_AW_PU module. 
Called by : ED _AW_PU 
Modules called = none 
Variables used : | 
Global : 1 : holds the value of the user input. 
today: holds date 


Local : none 
KRARAKKKKAAKKRARKARKRKAKKAAKAAKAKAKA AKA RKERAKARARKAAKAKKRARKARARAKAKKRR 
Set up loop for editing personal award and punishment record. 


HOR OO OO OOO OO 
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KARKKKKHEKKAKKAKKAEKKRAKAKKKAKKARKKAKKKARAKKRKEAERREKERKARKKAKKERKEKREKKKE RE 
USE a_p_mn IND&4 a_p_mn 


order = "x! 
sns = Wegil 
DO WHILE sns =" " .OR. order # " " , 
aa Find out what service number to edit. 
CLEAR 


@ 2,1 SAY "EDIT PERSONAL AWARD AND PUNISHMENT RECORDS.'! 
@2,60 SAY toda 

@2,70 SAY TIME?) 

g 3,0 SAY ULINE 
a 
x 


wocccree--- Get proposed service number and personnel order. 
order = SPACE(20) 
sns = SPACE(8) 
@15,5 SAY "Edit for what service number : 
" GET sns 
READ 


@17,5 SAY "Edit for what ponsoaee order ' 
eee! SAY "( or press RETURN to exit) IGE? <order 


Keeeeron---- Try to find that service number. 
sns = LOWER (sno) 
SEEK sns 
DO CASE | 
2------ If no service number entered, return to ED_AW_PU menu. 
CASE sns =" '! 
CLEAR 
CASE. orders=—'\ ' 
CLEAR 
Keeonn- If service number found, try to find that personnel 
Keenene order and edit it. 


CASE FOUND() 
USE a_p_mn INDEX a_p_mns 
sns = sns + order 
sns = lower(sns) 


SEEK sns 
IF FOUND() 
SET FORMAT TO screenl2 
READ 
SET FORMAT TO 
ELSE 
@5,0 CLEAR 
@ oe 5 SAY order + " Not found" 
eC CHR(7) 
WAIT 
ENDIF 
Keewn-n- Otherwise,warn user and allow another trv. 
Gasehe NOT. FOUND()_ 
CLEAR 


@17,5 SAY "There is no " + sns 
@ 24,5 SAY "Press any key to try again. 


WAIT OS 
ENDCASE | | 
ENDDO (Continue Smees tne until user requests exit.) 
a Return tO ED_AW_PU menu. 


f. EDEVAL.PRG 


KIKKKKKKAKAKERAKERAKERAKKERARERARRIERR ARR ARARERRERAERRERRARERRRKKR KR KRAKRKK KKK 
*X Module name :EDEVAL.PRG 


fs eeeoy ue ee NAM 
ace : 
* Purpose :This is the EDIT module for editing performance 


i evaluation records. 

x fuesets up the edit pehsgunance evaluation record, 
* accepts input from the user and calls the 

* required modules. When control is returned 
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a from the called module, thé user 2seemea Ff more 

a information is required and the process is_ repeated, 
x or control is passed back to the EDIT meduile. 

* Called by > Say 

* Modules called : SCREEN7! 

x Variables used : | . 

* Global : 1 : holds the value of the user input. 

: today: holds date 


Local : none 
KKAKKKAKKARKKKRAKKER RR RARER KRARKKRERRRRRKRRRRRERRRRRRRRRRRERRKRERREKRERK 


* Set up loop for editing performance evaluation record. 
KAKAKKAKKRKAKKAKAA RK RAR RARA RRA RK RE RAK RA RK ARRRARK RAK RAK RARER ARERR RKRRARERKR 


USE p_eval INDEX p_eval 


rdate = ''x'! 
sns = gg tt 
DO WHILE sns #" " .OR. rdate #" "J | 
Ke eee nn--- Find out what service number to edit. 
CLEAR 
@2,1 SAY "EDIT PERSONAL PROMOTION RECORDS"! 
@ 2,60 SAY toda 
G2 OMSay TIME?) 
@ 3,0 SAY ULINE 
; 
> 
* 


eee ceeee--- Get proposed service number and promotion order. 
rdate = SPACE(8) 
sns = SPACE(8) 


@15,5 SAY "Edit for what service number . ; 
' GET sns 
READ 
@ 17, 5SoSAY Mbdi ec for whae cae date (e.g----- > 03/107ccn 
Cond SAY " ( or press RETURN to ex1t) - " GET rdate 
Keeerrrccce Try to find that service number. 
sns = LOWER(sns) 
SEEK sns 
DO CASE | 
BODO If no service number entered, return to EDIT menu. 
CASE sns = " !i 
CLEAR 
CASE rdate = '! !! 
CLEAR | | 
Keonnnn If service number found, try to find that rating 
Reeren- date and edit it. 


CASE FOUND() 
USE pveva PDE eraerng 
sns = sns + rdate 
sns = lower(sns) 

SEEK sns 
IF FOUND() 
SET FORMAT TO screen7l 
READ 
SET FORMAT TO 
ELSE 
@ 5,0 CLEAR 
@15,5 SAY rdate + ! Not found!! 
? CHR(7) 


Reencnn- Otherwise,warn user and allow another try. 
CASE .NOT. FOUND() 

CLEAR 

i 1ipeeoa: VWinere 15 row tf sts 

@ 24,5 SAY "Press any key to try agaginaes 


Gl Ae 11 
ENDCASE vr 
ENDDO(Continue editing until user requests exit.) 
Ka csesencaa= Return tO EDIT menu. 
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g. EDCAREER.PRG 


KREKKKKAAARKAKRKKKREKEKKRERKRERKKEREKRERERKRRRRRERERRRERRRERRRRRERKERRE 


Medule name :EDCAREER.PRG 

Author sKIM, SAM NAM 

Date :22 NOV 86 — 

Purpose :This 1s the EDIT module for editing personal 


assignment records. . 
Tt sets up the edit pen sonee assignment record, 
secepeswtiputmwenomecne User and calls the 
required modules. When control is returned 
from the called module, the user is asked 1f more 
information 1s required and the process is repeated, 
or control 1s passed back to the EDIT module. 
Called by EO IT 
Modules called : SCREEN81 
Perioables Used = 
Global : 1 : holds the value of the user input. 
today: holds date 


Local : none 
KKKKKAKKKKKRRAKEKKRRA AK RERAK RAKE KA KKRRK KK KKK KRAK KAKA RRAR KAKA KR KRKRK 


Set up loop for editing assignment record. 
KARAKAKAKKAARKAKKAAKKAKAKAKRKAAE KARR KA RKAAKKARAKKRKAK RK RRAAKRKKKKKARAKRKARARKRE 


USE careers INDEX careers 


AA HAE A AAR AMAR aaa 


order = "x" 
Snis = Msg it 
BemgniLe sis # " ™ OR. order #" " é 
Kemwnnaaan- Find out what service number to edit. 
CLEAR 
@2,1 SAY "EDIT PERSONAL ASSIGNMENT RECORDS'! 
@ 2,60 SAY toda 
@2,70 SAY TIME() 
g SB ONsayY ULINE 
? 
ze 


Se on mm Get proposed service number and personnel order. 
order = SPACE(20) 

sns = SPACE(8) | 

@15,5 SAY "Edit for what service number . ; 


' GET sns 
READ 
@17,5 SAY "Edit for what personnel order" 
ese SAY " ( or press RETURN to exit) ' GET order 
Reeaanaan-- Try to find that service number. 
sns = LOWER(sns) 
SEEK sns 
BO CASE ; 
Km = ms Tiyne Service number entered; return to EDIT menu. 
CASE sns =" " 
CLEAR 
CASE order = " "' 
CLEAR : 
Reenen- If service number found, try to find that personnel 
Ramiele = Secdebeand edit 10. 


CASE FOUND() 
USE careers INDEX career 
sns = sns + order 
sns = lower(sns) 


SET FORMAT TO screen8gl 
READ 
SET FORMAT TO 


BOSE 
@ 5,0 CLEAR 
@15,5 SAY order + '! Not founda” 
? CHR(7) 
WAIT 
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wrccece Otherwise,warn user and ailow another try. 
CASE .NOT. FOUND() 
LEAR 
@i7,5 SAY "There is no " + sns 
@ 24,5 SAY "Fress any key to try again..." 


WAIT s§ 6) 
ENDCASE 
ENDDO (Continue c editing until user requests exit.) 
== 5 >> - See Return tO EDIT menu. 
RETURN 


de DICT.PRG 


RRRRRAKRRRRRRRERRERRRERRRRRRRRRRRRRRERKERRARRRRRRRARRRRKRRRRKRKRRERRRERERRRE 


x 
* MODULE NAME : DICT.PRG 

* AUTHOR : KIM, SAM NAM 

x YDATE = 31 NG@velsee 

x PURPOSE : This program allows the personnel officer to 

a obtain information about the data in the database. 

* CALLED BY onl ak 

* MODULES CALLED : A problem developed as we used the DRIVER 
* to call subprograms(too many files open). 
* This program is the main driver for the 
as dictionary requests. 

* VARIABLES USED: 

* GLOBAL : i : holds the value of the user input. 

x today : holds date 

xe LOCAL =: ene 


RRRERERRRRRRRARRARERRARERRERARRRERRRRRAERRRRERRRERRRRRARRRERRERRERARRRRREARR 
CLEAR 
DO WHILE .T. 
CLEAR 


* DO WHILE .T. means DO WHILE TRUE i.e. do forever. 
* The DO WHILE will be terminated by an EXIT command. 
* Clear the screan and display the main menu. 
DO MENUSCR 
2,20 SAY "DATA DICTIONARY INQUIRIES ” 
5) oomee SUBMENU: 
19,33 SAY INFORMATION" ee 
10,9 SAY "“A.What is ??? and how do I enter it into the" 
10,53 SAY" conputen.” 
11,9 SAY "B.What type of information does a particular" 
livoS SAY, Vem tesconcaan a. 
12,9 SAY "C.What file contains a particular variable?" 
13,9 SAY "DD. Daectionary incermatien.. 
14,9 SAY "E.Chan e date!! 
15.9 Sa oe 
20,6350 DALE LIMES 
20, 55°0SAY “UPDATED BY” 
217 57SAL. today 
@ 21,19 SAY TIME() 
*@ 21,52 SAY gname | 
@ 23,10 say " [ Enter selection ( A - E, or KX to Exit ):: J" 
DO WHILE .T. 
1=0 
DO WHILE i=0 
1=INKEY() 
@ 21,19 SAY TIME() 
@ 25,54 Save eu 
IF UPPER(CHR(1) )S"ABCDEX" 
EXIT 


ENDIF 
ENDDO 
@ 23,54 SAY UPPER(CHR(i)) 
IF .NOT. CHR(i)$"Ee" 

IE 


MADODADADMOADMO@ OD 


Maa 
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ENDIF 
SET CCLOR TOC N/W 
@ 19,335 Say “INFORMATION 
@15,12 SAY "E. CHANGE DATE." 
es coe TO W/N 

50 GET today 


@ 2 
RE 
@ 21,5 SAY toda 
@ oh 33 SAY "INFORMATION" 
@ 15,12 SAY "E. CHANGE DATE." 

Cmzo- 54, SAY ol 
ENDDO 
DO CASE | 

CASE CHR(i)$ "Xx" 
CLEAR 


RETURN 

CASE CHR(i)S''Aa" 
BOP brett 

CASE CHR(i)S$"Bb' 
BOP DIEEZ 

CASE CHR(i)S$"Cc" 
DO DICT3 

CASE CHR(1)$"Dd" 
DO DICT4 

ENDCASE 
ENDDO 
weceeennn--- when done,return to°main menu 


URN 
a. DICTI.PRG 


KRREAEKAKKAKAKKKKRKKKKKAKKAKKKEKRAEKRKKRKAKRRAKRKKAKRKAAKKKKKKRRARKKRKKKKRKAKKKKRKKAKAKAKKRRAARKAAAKRKR 


MODULE NAME : DICT1.PRG 
* AUTHOR >: KIM, SAM NAM 
* DATE : 30 NOV 86 
* PURPOSE: This module allows a user_to discover what an 
* element is, what it's allowable values are, 
x and how to enter it into the computer. 
x CAERED BY =  DICT.PRG 
* MODULES CALLED :none 
é VARIABLES USED: 
* 
* 


LOCAL : varname, printout 

GLOBAL :none 
RAKKAKKAKARKARKRAAKARRAKAARARKARKAARARKAARARAAKARRKARKARKARAARKAARARKARAAK 

CLEAR GETS 

CLEAR 

SCORE =" " TO varname 

Saokeee lO printout 

USE element 

x eo-- Drsonays the menu for making the element name 

Keeenn reques 


Gezeoeony "This portion of the data dictionary; 
inquiries allows vou 
BoA) UW EO” 
3,6 SAY "ask questions about elements and how; 
they are entered! 
Syoumsan Into! 
@ 4,6 SAY "the computer. For example, you know the; 
element name of" . 
@5,6 SAY "somthing is SN pacuee you don't - 
know what it means'! 
6,6 SAY “or how to enter it. You would type the; 
element name at the’! 
7,6 SAY "Promt and would get the full name i 
allowable values, and" 
8,6 SAY "How to enter it." 
@9,6 SAY " i een not sume howeto enter it," 
@10,6 Say " nter what you do know!" 


eg 
ACCEPT "Please enter the element name-- " TO varname 
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8 20,2 SAY “Do you want a printout? y ORWn"” 
@ 20,35 GET printout 
READ 
varname = LOWER (varname) 
IF varname = "help'! 
RETURN 
ENDIF. 
ih PrIncour— aye 
ET PRINT ON 
ENDIF 
Kewwwe This section displays all elements with the required 
Keowen- element name 
DISPLAY ALL “Element IDS) elemeqelcmren 
elementid=varname off 
DISPLAY ALL "Full ID", fullid FOR elementid = varname off 
DISPLAY ALL “lvoe type FOR elementid = varname ota 
DISPLAY ALL "COMMENTS--", comments FOR elementid = 
varname off 


SED RR te oe 


WAIT 
RETURN 
b. DICT2.PRG 


KRREAKKKAKKKKKKKAKKRKKKKKKRKAKRKRKKRKAKKKAKRKRKKKKKKRKARKRKRKKKAKAKKRKRKRKAKKKRKAKRKRKKAKAKAAKRKRKKAKKE 


MODULE NAME : DICT2.PRG 
x AUTHOR >: KIM, SAM Nav 
x DATE, = sole OV -LIS6 
* PURPOSE: Allows the user to find out how commonly used files 
x are structured. 
x CALLED BY —s3 70 Tete] EG 
* MODULES CALLED : none 
x VARIABLES USED: 
* LOCAL : FILENAME, PRINTOUT 
* GLOBAL : i: holds value gos user input. 
* today: holds dat 
TAC AR RA TR RC I 
ve 


Ups loop for presenting menu. 

Ri eee KRRAKRKAKKARKKRRKKKKRKRKKERKKKEKKKAKKKKKKKEKAKRKAKEK 
CLEAR 
DO WHILE .T. 

CLEAR 

DO MENUSCR 
2,14 SAY "DATA DICTIONARY ABOUT DATA FILE STRUCTURE'! 
6,34 SAY "SUBMENU! 
19,33 SAY "INFORMATION'! 
9,5 SAY "A. Main file’ | | 
10,5 SAY "8. Milatary edueatson le! 


11,5 SAY 'C. Personal education file" 

12,5 SAY "DO. Rank fice" 

13,0) Sa! Ea Promote flew 

14,5 SAY "F. Award and punishment records" 
12 9a oe Personal award and punishment" 
167.8 SAY “i goinew 


9,42 SAY "H. Award and BU ae poUnt fire! 
10,42 SAY “I. Expert. file" 

11,42 SAY "J. Performance evaluation file'! 

12,42 SAY "K. eee careers file " 

13,42 SAY "L. File file" 

14,42 SAY "M. User file! 

15,42 SAY "'N. Change date" 

16,42 SAY "X. Return to main menu! 

20,8 SAY "DATE TIME 

20,55 SAY “UPDATED BY'!! 

21,5 SAY Eouay 

21,19 SAY TIME() 

<@ 21,52 SAY gname 

@ 23,10 SAY "[Enter selection (A - N, or X to return totmam" 
@ 23,57 SAY " menu) eo: ). i. 

DO WHILE .T. 


DDADAAADADAMDDADADDDOAOO@ Oia 


166 


1=9 
DO WHILE i=0 
1=INKEY() 
@ 21,19 SAY TIME() 
@ 23,65 SAY "" 
ee UPPER(CHR (i) )$"ABCDEFGHIJKLMNK" 


ENDiF 


ENDDO 
@ 23 65 Sau UPPER(CHR(1i) ) 
IF .NOT. CHR(1)S"Nn"! 

EXIT 


ENDIF 

py COLOR TO N/W 

Ceo es SAY ' INFORMATION" 

@ 15,42 SAY "N. CHANGE DATE" 
SET COLOR TO W/N 

a ee 5 GET today 


a2 SAY today 
@ 19! 33 SAY "INFORMATION" 
@ 15,42 SAY "N. Change date’! 


ee2s;Oo.cay 
ENDDO 
Seong, '' TO printout 
CLEAR 


@ 15,7 SAY "Do you want a print out? yv or n; 
GEL printout 
REA 


IF Seintout = My" 
SET PRINT ON 
ENDIF 
DO CASE 
G2on CHR(1)S “Xx" 
CLEAR 


RETURN 

CASE CHR(1)S$"Aa" 
USE main 
Eloise ruc 


WAIT 

CASE CHR(i)S"Bb!! 
USE m_educat 
Elo seruc 
WAIT 

CASE CHR(i)S"Cc"! 
USE educatmn 
poh seruc 


WAIT 

CASE CHR(i)S'"'Dd!! 
USE rank 
ae struc 


WAIT 

CASE CHR(1i)S"Ee" 
USE promote 
Peo Sthuc 
WAIT 

CASE CHR (1)S''FE" 
USE awardpun 
ese es eEttc 


WAIT 

CASE CHR(i)$"Gg!! 
USE a_o mn 
LIST struc 
WAIT 

CASE eee tat 
USE a5 
List. struc 
WAIT 
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CASE GHR (Gy Sua 
USE expert 
List struc 


WAIT . 
CASE Ghigo! Ja)! 
USE p_eval 
CiSstascruc 

WAIT 

CASE CHR{i)S"Kk!! 

Sa careers 

Bist -scruc 
WAIT 

CASE. (Chk 1) oe 
USE file 
Lisl ‘semuc 


WAIT 
CASE CHR(1)S"Mm"! 
USE user 
List struc 
WAIT 
ENDCASE 
SET PRINT OFF 


ere when done,return to main menu 


c. DICT3.PRG 


KRKRERKKKKAKKKAKKKKRKKKRKKRKKRKRKKRKKRRKRRKRKRRKRRRRRRKKKRRKARRRKKKKKRKKKRKRKKRKKKKKK 


MODULE NAME 3 3p iGGs ene 
AUTHOR : KIM, SAM NAM 
DATE = 731 NOVeises 
PURPOSE: Allows the user to see what elements are used 
in other files, programs, and etc. 
CALLEDUBY = [DICT- cre 
MODULES CALLED :none 
VARIABLES USED: . 
LOCAL =: SVarbname perineour 
OBAL : none 


4 


HOO HH 


CLEAR GETS 


CLEAR 
SlLORM= =: " to varname 
STORE ie webOe Dlameo te 
USE contains 
ai SS pide the menu then requests the variable name. 
@2,10 SAY "This portion of the data dictionary allows you to make" 
@ 3,10 SAY "queries about where certain pleces#or Intounae eras 
@4,10 SAY "used throughout system. For example, if you wanted" 
: oe SAY nite Know where PLORDER was used (perhaps to assess th’! 
; Sate, 
@ 6,10 SAY "possible impact of transitioning to the 15 digit code me 
@7,10 Say “you would enter the variable name at) the prompt and thee 
: ae ae information you would receive would be listed in the fo" 
; 5 ae 
5 une aS uname of the place where used name of the file,program'! 
; etc. 
@ 11,41 SAY "Which uses it"! 
@ £3 10 SAY "sucna as MAIN file! 
@ 14,31 SAY "DRIVER program! 
@16,9 SAY "If you don't Know the exact name," 
5 eae SAY "enter what you do know, in all lower letters" 
ACCEPT "Please enter the variable name-- " TO varname 
@ 22,2 SAY "Do you want a printout? y or n! 
@° 22,25 GSleprintour 
READ 
IF varname = "help! 
RETURN 
ENDIF 


LTPeoninteute—— 7 yl 
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SEI PRINT ON 
ENDIF 
E 


| _ SET HEADING OFF | 
Keew= Displays all the names and entity types for the required 
Keee variable name. 

DISPLAY ALL elname,eitype FOR eZname = varname OFF 

USE pieces? . : 

DISPLAY ALL idl,tyvpel for id2 = varname OFF 

SET HEADING ON 

SET PRINT OFF 


WAIT 
RETURN 
d. DICT4.PRG 
KAKKAKKARKAKKKRKAAAKKKAAKAKAKRRAAAKKRAARAKKRARARKRAAKKRRRAKKRRRRAKKRRRA 
MODULE NAME : DICT4.PRG 
AUTHOR KIM, SAM NAM 


DATE : 31 NOV 1986 a 
PURPOSE: Allows the user to exit the data dictionary | 
querzes and gives the more experienced user some information 
on how to use other features of the dictionary. 
S2ELED BY = DICT.PRG 7 
MODULES GALLED = none 
VARIABLES USED: 
LOCAL : none 
GLOBAL : none 

RARKAKKAKAKKKAREKAARKKARKKAKARKKAAAAKAKRRAAAAKAARAAARRARRA AAR RAARAKAKRAARRAR 
CLEAR 

1,7 SAY “Before eu leave the data dictionary, you should know t' 
Boz SAY “hat other" 
PAY questions can be answered about this SYSTEM database! 
foo SAY “system! . 
,? SAY "using the DBMS III+ query language. The previous querie" 
poo SAY ''s wére' . 
7 SAY "designed to answer typical questions a primary user of" 
B2yoar “the sysitem" ee. 
7 SAY "might have while using the system. For the individual w" 
ecesAr 'ith al 
7 SAY "knowledge of DBMS III+, information exists about! 
PeSAY “SYSIEM=- The PERSONNEL MANAGEMENT SYSTEM" 
7 SAY "PROGRAM-- Programs used in the PPERSONNEL MANAGEMENT SYSTEM" 
,? SAY "CONTAINS-- Information about where entities are contai'! 
mopioc SAY “ned" en 
fees SAY "in other entities” — a 
ier’ PROGHooho-- ~ntormation about where entities act upon" 
Meroe OAt “another entity." 
13,7 SAY "ELEMENT-- Descriptions of the instances of data such as" 
me o5 SAY "service" 
14,19 SAY "number! 
ieee eoe: PthE-— Describes the files used in this system " 
eo SAY "USER-- Describes users of in this system." 
RETURN 


ab OO Ob OO Oe Ob OO 


WODinurP Ply WPDEF 


= ~~ w* ~ ~ ~~ +“ 


MVDDAVDADAIAVIAAI AAD DMD OOOO (a) 
ft 
© 
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APPENDIX C 
DATA DUMP 


e Se main 
- list strue 


Structure for database: C:main.dbf 


Number of data records: 6 
Date of last uodate s O1731787 
Field Field Name Type Width Dec 
1 SN Character 8 
= NAME Character ao 
= ORG_BRANCH Character =0 
4 Clie Character 10 
3S BORN DATE Character 8 
6& BORN PLACE Character 1S 
¥% Total *% 87 
- list 
Record# SN NAME ORG_BRANCH 
_DATE RORN_F'LACE 
1 21554 kim,sam nam infantry 
1/54 chunnam do 
2 22456 Ppark,jae bock infantry 
1/56 seoul city 
eee ee kang,seon mo engineer 
1/56 seoul city 
4 20001 jung,jee ho infantry 
1/53 pusan city 
3 wsw675 jJ00,dae joon infantry 
1/53 kyoungnam do , 
& 22545 
» use m_educat 
- list struc 
Structure for database: C:m_educat.dbf 
Number of data records: b 
Date of last update : 12/02/84 
Field Field Name Type Width Dec 
1 CNAME Character 29 
x CLASS SIZE Numeric 4 
> START_DATE Character 8 
4 END_DATE Character 8 
S SNAME Char acter ~9 
6& CLASS _ MEAN Numeric 5 z 
*£ Total %*% 7& 
- last 
Record# CNAME CLASS _SIZE START_DATE END_DATE 
CLASS MEAN 
1 infantry o.bd.c#5 ZOO 04/01/77 QO7/01/77 
1 80.05 
= engineer o.b.c#S 25 04/01/79 07/01/79 
1 77 ca 
> infantry O.a.c#2> 155 06/01/82 11/20/82 
1 S..3 
4 engineer o.a.c#iS 68 07/21/84 12/01/84 
1 BO,OS 
S infantry o.b.c#7 200 04/01/79 O7/01/79 
i 8S. 60 
& engineer o.a.c#l 4S 04/01/77 OF 701777 
1 78.350 
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C TVvFE 


KM. AHS3 


* 


b: 


oM.ARSS 


-M.A8#S5 


he M.ARSS 


ok. M. ANLS 


SNAME 


army 


army 


army 


army 


army 


army 


infantry 
engineer 
intantry 
engineer 
intantry 


engineer 


WORN 
OFT Ss 
OS7 = 
VIZ 
Q6/2 


5675 


schoo 
schoo 
schoo 
schoo 
e¢choo 


schoo 
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Date of last update 3 12/18/86 
Field Fieid Name Type Wadth Dec 
1 SN Character 8 
2 CNAME Character =0 
> E_GRADE Character iS 
4 MEAN Numeric 5 2 
2% Total &8 49 
. 144% 
Record# SN CNAME E_GRADE 
1 21554 infantry 0.b.c#5 cutstanding 
2 21554 infantry o.a.c#is4 outstanding 
> «a2v436 infantry o0.a.c#7 outstanding 
4 22456 infantry o.a.c#l34 Outstanding 
Saco. engineer 0.09.c#z middle 
Go aease engineer o.a.ck=S outstanding 
7 20001 engineer o.b.c#1 outstanding 
8 20001 engineer 0.a.c#S5 outstanding 
9 5506735 infantry o.a.c#22 outstanding 
10) «21554 army colledge#r25 outstanding 
. use rank 
- last struc 
Structure for database: C:rank.db# 
.Number of data records: rs 
Date of last update : 01/99/87 
Field Field Name Type Width Dec 
1 RANKS Character <0 
=) &_ORDER Character 20 
3 TDATE. Cnaracter 8 
en Total 88 49 
we Lh se 
Record# RANKS P _ORDER 
1 2nd lieutenant 77-35 army 
2 2nd lieutenant 76-13 army 
> ist lieutenant 77-13 army 
4 ist lieutenant 78-35 army 
S 2nd lieutenant 79-25 army 
& captain 79-13 army 
7 tst lieutenant 80-35 army 
8 captain 80-35 army 
9 catain 82-25 army 
10 major B4=335 army 
11 major 86-13 army 
12 major B46-SS5 army 
1S) «lst lieutient 85-100 army 
- use promote 
e list struc 
Structure for database: C:promote. dbf 
Numoer of data records: 20 
Date of last uodate : 12/18/86 
Field Field Name ‘ype Width Dec 
1 SN Character B 
cer ORDER Character 20 
22 Total 1% ‘ ae 
Last 
Fecord# SN P_ORDER 
1. “2135 77-35 army 
ae Ld 78-25 army 
S 29304 80-23 army 
& 21355 B4-335 army 
5S 2245 79-=S5 army 
& 25456 80-25 army 
2° 224356 82-55 army 
8S 25456 86-25 army 
ce ee 79-25 army 
{OUlscecus BU-T5 army 
Ll. occas 82-25 army 
(2S cess B4-=5 army 
is) 20091 77-335 army 
14! §20901 76-<=35 army 
S000) 8N-25 army 
16 20001 84-335 army 
17 S506 75 76-13 army 
18 £50673 777135 army 
19 $50673 79-13 army 
20 550673 846-135 army 


MEAN 
3.30 
93.50 
Saco o 
oO 
85.50 
93.50 
95.40 
93.50 
91.50 
93.50 


TDATE 

O3/2B770 
10/01/76 
10/01/77 
04/01/77 
03/28/79 
10/01/79 
04/01/89 
04/01/80 
04/01/82 
12/01/84 
06/01/88 
10/01/86 
04/01/85 


. Us@® awarapun 
- dist struc 


Structure for database: C3: awarcoun. dbf 


Number of data records: 5 
Date ‘of last update : 12/18/85 
Field Field Name Tvpe Wsdth 
1 KIND Character =0 
2 P_QRDER Character 20 
3S TDATE Character 8 
2% Total £2 S9 
- Tree 


Recordg# ‘IND 

staff of chief awarding 
army commander awarding 
coros commander awarding 
division commander awarding 
staff of chief award 


U & LIN & 


- use a_p_omn 

» tast struc 

Structure for datapase: Cz:a_p_omn.db¥f 
Numoper of data records: 

Date of last update : 12/18/86 


Field Field Name Type Width 
1 SN Character 8 
& PP ZORBER Character 20 
Zz Total %% <-? 
« i tog 
Record# SN P ORDER 
tl 24534 77-100 army 
2 21554 82-100 Srd army 
oye Zi 9 85-2300 6th corps 
4 23456 82~100 Sra army 
5 234354 BI~S00 Sth division 
6. 22222 85-200 6th coros 
7 zooo! 82-100 rd army 
8 20001. 85-200 6th corps 


» use apoio 
- List struc 
Structure for database: C:a_p_o.dbf 


Numoer of data records: rs 
Date of Last update : 11/27/84 
Field Fireid Name Type Width 
1 KINO Character sO 
2 POINT Numeric 4 
¥x Total x8 oo 
« List 


Recora# KIND 


regimental commander awarding 


1 

2 brigade commander awarding 
> @1Vv18510N Commander awarding 
4 corps commander awarding 

S army commander awarding 

& chiet of staff awarding 
7 
8 
9 


minister of defence awarding 


prime minister awarding 
president awarding 

10 decoration 

11 light diseiplinary 

« heavy diseriplinary 

11> «6omlitary trial 


- USB e@erpert 

- list struc 

Structure for database: Crexpert.dbd¢ 
- 


Number o+ data records: = 
Date of last update s 12/187/786 
Field Fieiad Name Type Width 
1 Sh Character 3 
2 E€XFERTITLE Cnaracter 20 
%% Total 2% a? 
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Dec 


P_ORDER 
77-100 
92-100 
gS-T00 
83-200 
77-100 


Dec 


Dec 


POINT 


0.5 


6 e e ® e e * ® 
CCOOOOUOCOWUNOOSO 


4 
CH Ld = CALA CAPD A) RH me em eH 
* e 


Dec 


army 
=rd army 

Sth coros 
Sth division 
army 


TDATE 

OF Met ae 
0974178 — 
0S/07/8S 
O7 7217565 
O97 ais 7, 


o J tee 


Record# SN EXPERTITLE 
1 21554 C.p.a 
a <g2acce CePea 
> acne civil engineer 
4 2rce c.p.a 
S$ 21554 c.p.a 


- use p_eval 
- list struc 


Structure for database: C:p_eval.dbf 


Numoer of data records: 4 
Date of last update : 12/18/86 
Field Field Name Type Width Dec 
1 SN Character 8 
2 GRADE Character 2 
3 RATINGDATE Character 8 
s% Total %% ; 1c 
« lidst 
Record# SN GRADE RATINGDATE 
1 21554 aa 03/10/78 
2 «arom aa 03/10/79 
See ea ab 03/10/80 
4 21554 ba 03/10/B1 
.- use career 
- list struc 
Structure for database: C:career.dbf 
Numoer of data records: 8 
Date of last update : 01/31/97 
Field Field Name Tvpe Width Dec 
1 SN Character 8 
< START_DATE Character 8 
3 END_DATE Character e . 
4 SE_NO Character 7 
> P_ORDER Cnar acter =O) 
£% Total 42 oa 
- list 
Record# SN START_DATE END_DATE SE_NO P_ORDER 
1 21554 07/08/77 07/08/78 1111001 77-101 SSth division 
2 21554 07/09/78 09/09/79 1111001 78-101 SSth division 
> 21554 09/10/79 OS5/21/82 1111001 79-101 SSth division 
4 22345 07/08/79 07/08/82 3325001 79-101 Sird division 
5 224856 07/09/81 07/09/84, 5533001 81-101 Zird division 
6+ 25456 07/10/84 SISSO001 84-101 Tord division 
7 <2zie 07/08779 07/08/81i 1111000 79-101 ESth division 
B 22ce 07/09/81 07/10/84 1111001 84-101 SSth division 
- use unit 
- list struc 
Structure for database: Csunit.dbf 
Numder of data records: 8 
Date of itast update : O1/31/87 
Field Fieid Name Type Width Dec 
+ SENG Character 7 
2 ODUTY_TITLE Character 20 
3 UNIT Character a 
%% Total x2 5 
« List 
Record# SE _NO DUTY_TITLE UNIT 
i 1111001 platoon ieader So scaee com) sco =<pi 
< 1111901 s-3 air won cere Zon 
3 21111001 company commander woaMeoe se eS 
4 3222001 piatoon teader SZx 456r Zbn 19co ipl 
S$ 3rIrTZ001 comoany commander 2ox% 456r Zbn ico 
& 2355-5001 battalion s-5 ves 456r Tpbn 
7 1111000 platoon leader SS. egineer on cco ipl 
8 1111001 company commander Sox engineer bn sco 
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APPENDIX D 


QUERY SAMPLE 
Service number : 21554 
Personnel order or promotion order : 86-100 army 
Course name: infantry 0.a.c#234 
Promotion year: 85 
Rank : major 
Expert title= C.p.a 
Award and punishment name : army commander awarding 
Evaluation date : 03/10/85 
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10. 


ed. 


DIST OPP NeVENEISCES 
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